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

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 DoubleDim i As IntegerDim j As IntegerDim k As Integer, OneDim rtn As Doublertn = 0For i = 0 To UBound(x)Select Case TypeName(x(i))Case "Range"For j = 1 To x(i).Rows.CountFor k = 1 To x(i).Columns.Countrtn = rtn + x(i).Cells(j, k)Next kNext jCase "Variant()"For Each One In x(i)rtn = rtn + OneNext OneEnd SelectNext iudSum = rtnEnd Function