使用公式将数组从 VBA 函数输出到 Excel 工作表

Question

我发现我正在使用一个漂亮的 RegEx 函数（见下文）。该函数输出一个数组。如果我只需要数组的第一个元素，这很好。但我正在尝试从引文数据中提取作者，因此我需要从该输出中提取多个项目。

我知道 Excel 工作表中的数组。所以我尝试了={ReFind(A3,"[^()]+")}，选择了一个区域并按下了ctrl+shift+enter，但是它返回一个错误并且{=ReFind(A3,"[^()]+ ")} 只是在单元格中复制公式。

有没有办法让函数使用公式将数组输出到多个单元格？我可以不用写更多的 vba 就离开吗？

Function ReFind(FindIn, FindWhat As String, _
    Optional IgnoreCase As Boolean = False)
Dim i As Long
Dim matchCount As Integer
Dim RE As Object, allMatches As Object, aMatch As Object
Set RE = CreateObject("vbscript.regexp")
RE.Pattern = FindWhat
RE.IgnoreCase = IgnoreCase
RE.Global = True
Set allMatches = RE.Execute(FindIn)
matchCount = allMatches.Count
If matchCount >= 1 Then
    ReDim rslt(0 To allMatches.Count - 1)
    For i = 0 To allMatches.Count - 1
        rslt(i) = allMatches(i).Value
    Next i
    ReFind = rslt
Else
    ReFind = ""
End If
End Function

Answer 1

您需要返回一个与调用单元格范围匹配的二维数组（以便您将其作为多单元格数组公式输入（不要输入 { } 只需选择单元格，输入公式并按 Control-移入）） 您当前正在返回一个一维数组