想要支持冒号这种表达式，需要怎样修改呢？

Question

写了一个自定义函数Function FFQiuhe(ParamArray Arr1()) As String……end Function此函数支持A1=FFQiuhe(B1,C1,D1,E1)但是不支持A1=FFQiuhe(B1:E1)

Answer 1

给你参考的
Public Function udSum(ParamArray x()) As Double

Dim i As Integer
Dim j As Integer
Dim k As Integer, One
Dim rtn As Double
rtn = 0

For i = 0 To UBound(x)
Select Case TypeName(x(i))
Case "Range"
For j = 1 To x(i).Rows.Count
For k = 1 To x(i).Columns.Count
rtn = rtn + x(i).Cells(j, k)
Next k
Next j

Case "Variant()"
For Each One In x(i)
rtn = rtn + One
Next One

End Select
Next i
udSum = rtn
End Function