excel - 将 Excel 数组常量传递给 VBA 函数

Question

我有一个单元格，其值为数组常量，例如单元格 A1 设置为 ={1,2,3,4,5,6}

然后我在 VBA 中定义了一个函数:

Function MyFunc(Data)
MyFunc = Data.Rows.Count
End Function

当我可以 =MyFunc(A1) 时，我希望函数返回数组的长度 (6)，但是使用调试器，我发现我的函数接收的“Data”变量仅包含该数组的第一个元素。Data.Rows.Count 计算结果为 1，TypeName(Data) 计算结果为“Range”

Answer 1

另一种方法:

Function myFunc(Data)
    myFunc = UBound(Evaluate(Data.Formula))
End Function