arrays - 如何使用 Evaluate 方法计算数组公式

Question

在 VBA 中，Evaluate()和[]方法都可以用于返回数组:

Dim i As Variant
i = Evaluate("{1,2;3,4}")
i = [{1,2;3,4}]

两条线均设置i是一个包含数字 1-4 的二维数组。一个附加功能是 Evaluate(...)(1,2)返回数组的 R1C2 索引元素(即 2 - [...](1,2) 同时出现错误)

我想知道是否有任何语法可以以相同的方式评估返回数组的工作表函数，例如

i = Evaluate("LEN(A1:A5)>3") 'or similar like [{LEN(A1:A5)>3}]

它应该返回一维数组，如 {False,False,False,True,True}如果 A4 中的文本长度超过 3 个字符& A5 ，但事实并非如此。

如果没有，是否还有另一种单行方法来评估数组公式以返回完整数组？我正在寻找能够提供最小字符数的任何方法。

Answer 1

要返回数组，您需要使用支持数组作为结果的函数。

通常与 VBA 一起使用来计算数组表达式的函数是 INDEX因为它不会改变值:

Dim data()
data = Evaluate("INDEX(LEN(A1:A5)>3,)")