Excel 数组公式有编程接口吗？

Question

例如，假设我

{={1,2,3,4,5}}

在一个牢房里。有什么方法可以找出该数组中有多少个元素以及这些元素是什么？

现在实现 @chris neilsen 的想法，我现在有了一个如下所示的 VBA 函数

Function rinfo(r As Range) As String
    With r.CurrentArray
        rinfo = .Address & ", " & .Rows.Count & ", " & .Columns.Count & ", " & .Value & ", " & .Value2
    End With
End Function

，但是其中的数据看起来并不乐观，即

$A$29, 1, 1, 1, 1

Rows.Count 和 Columns.Count 如果它们正在计算中使用的行和列，那么它们是有意义的工作表。但作为数组公式中数据的指示，没有。

Answer 1

您的公式仅占用一个单元格，并且单元格只能包含标量值，因此计算单元格后它将包含 1。
但是您可以从 VBA 计算公式，这可以给您一个数组结果。如果您的公式在 A1 中，

Dim vArr As Variant
vArr = Evaluate(Range("a1").Formula)

则将导致 vArr 包含 4 个数字的 4 个变体的数组。
Evaluate 方法有几个“怪癖”：请参阅 我的网页之一了解详细信息。

Answer 2

在 Sub 中，如果 cl 是 Range 并且设置为属于数组公式一部分的单元格，则

cl.CurrentArray

返回包含以下内容的范围：数组公式。

如果您的示例公式位于单元格 A1:E1 中，并且活动单元格是单元格 A1 .. E1 中

Sub zx()
    MsgBox "ref = " & ActiveCell.CurrentArray.Address
End Sub

的任何一个，则运行将返回一条消息 ref = $A$1:$E$1

您可以使用 .Rows.Count 和 .Columns.Count 获取大小，使用 .Value 获取值