<em>vba</em> function当参数是数组应该怎么写

只能传来 单元格源，然后转知数组。如下道 

Function MyTest(rng As Range)
    Dim arr() As Variant
   Set arr = rng.Value
    MyTest = UBound(arr)
End Function

Public Function adress(ID As Integer, chengshi As String, keyarr() As String)
可以在函数百中定义静态度类型

Static A '只能定义通知用类型，否则IsEmpty 检查不出来道。
If IsEmpty(A) Then '这样保证数组只赋值一回次
ReDim A(5) As String
'对数组赋答值操作
End If

两个都可以，百第二个不能引用度 单元格区域知，每个单元格都是道一个参数，需要用逗号分隔内

第一个比较接近内置容函数SUM'

Option Explicit
Function Ssum(ByVal range As range) As Double
    Dim rng As range
    For Each rng In range
        Ssum = Ssum + rng.Value
    Next rng
End Function

Function Ssum0(ParamArray arr()) As Double
    Dim i As Integer
    For i = LBound(arr) To UBound(arr)
        If IsNumeric(arr(i)) Then
            Ssum0 = Ssum0 + arr(i)
        End If
    Next i
End Function