如何将作为字符串数组的单元格内容作为参数传递给函数？

Question

我有这个正确返回字符串数组的 VBA UDF：

Function SplitString(ByVal Str As String, ByVal StrLen As Integer) As String()
    Dim ArrStrs() As String
    Dim ArrCount As Integer
    ReDim ArrStrs((Len(Str) - 1) \ StrLen)
    ArrCount = 0
    For i = 1 To Len(Str) Step StrLen
        ArrStrs(ArrCount) = Mid(Str, i, StrLen)
        ArrCount = ArrCount + 1
    Next

    SplitString = ArrStrs
End Function

我在 Excel 表格的一个单元格中使用了上述函数，比如单元格A1

=SplitString("wordexample";2)

哪个显示

并且，通过进入单元格的编辑模式并点击F9，它会显示

现在，我想将A1 的内容作为名为@9​​87654329@ 的参数传递给另一个UDF。

我尝试了这些和其他一些：

Function MyFunct(ArrayOfStrs As Variant, ParamArray CStrs() As Variant)
'Using Function MyFunct(ArrayOfStrs As String, ParamArray CStrs() As Variant) I get #VALUE! error

    MsgBox ArrayOfStrs(1)   'returns "wo"
    'MsgBox ArrayOfStrs(2)   returns ""
    'MsgBox ArrayOfStrs(...) returns ""

End Function

但我无法将ArrayOfStrs 作为字符串数组。也就是说，似乎只有先前拆分的字符串的第一个值（wo）被传递给MyFunct。事实上，只有ArrayOfStrs(1) 有效（它返回wo）和其他值（rd、ex、am、pl 和e）似乎在ArrayOfStrs 中不可用.

如何正确地将ArrayOfStrs 作为函数参数传递给MyFunct？

Answer 1

您可以Evaluate A1 的内容，其中A1 包含您在问题中提到的公式：

Function myFunct(myRange As Range)
    Dim ArrayOfStrs As Variant
    Dim msg As String
    Dim I As Long
ArrayOfStrs = Evaluate(myRange.Formula)

msg = ""
For I = LBound(ArrayOfStrs) To UBound(ArrayOfStrs)
    msg = msg & vbLf & ArrayOfStrs(I)
Next I

msg = Mid(msg, 2)

MsgBox msg

End Function

但无需在工作表上输入SplitString 即可获得结果：

Function myFunct2()
    Dim arr As Variant
    Dim I As Long
    Dim msg As String

arr = SplitString("wordexample", 2)
msg = ""
For I = LBound(arr) To UBound(arr)
    msg = msg & vbLf & arr(I)
Next I

msg = Mid(msg, 2)

MsgBox msg

End Function