锯齿状数组作为 vba sub 的参数答案

【问题标题】：Jagged Arrays as parameters for vba sub锯齿状数组作为 vba sub 的参数
【发布时间】：2016-08-24 11:01:18
【问题描述】：

我想在 vba 中创建一个以数组为参数的 Sub。以下代码有效：

Sub phase1State(ByRef arr() As String)

现在，我希望那个参数是一个数组数组，或者锯齿状数组，我该怎么做呢？

谢谢！

【问题讨论】：

这里的魔法词是变体。一个变体 Array 可以存储和 Array。并且可以作为参数传递

标签： arrays vba excel jagged-arrays

【解决方案1】：

Sub test()
    Dim jagged As Variant
    ReDim jagged(1 To 3)
    jagged(1) = Array(1, 2, 3)
    jagged(2) = Array(4, 5, 6)
    jagged(3) = Array(7, 8, 9)
    phase1State jagged
End Sub

Sub phase1State(ByRef arrJagged As Variant)
    Debug.Print arrJagged(2)(2) ' 6
End Sub

【讨论】：

【解决方案2】：

Sub Arraycheck()
    ReDim Arr(3) As String
    Arr(1) = "1"
    Arr(2) = "2"
    Arr(3) = "3"
    Call parameter(Arr())
End Sub
Sub parameter(getarr() As String)
    Debug.Print getarr(2)
End Sub

【讨论】：