VBA Redim 保留

Question

我不知道如何填充多维数组。这是我刚开始理解的代码，但我不知道出了什么问题，除了一个循环之外它不起作用。

Sub test()
    Dim Arr1 As Variant
    Dim Row As Long
    For Row = 0 To 3            
        ReDim Arr1(9, Row)
        Arr1(0, Row) = "Zero"
        Arr1(1, Row) = "One"
        Arr1(2, Row) = "Two"
        Arr1(3, Row) = "Three"
        Arr1(4, Row) = "Four"
        Arr1(5, Row) = "Five"
        Arr1(6, Row) = "Six"
        Arr1(7, Row) = "Seven"
        Arr1(8, Row) = "Eight"
        Arr1(9, Row) = "Nine"    
        Row = Row + 1
        ReDim Preserve Arr1(9, Row)        
    Next Row
    MsgBox Arr1(0, 0)
End Sub

谢谢

Answer 1

范围可用于重复它们而无需循环：

Dim r As Range, Arr1
Set r = Cells.Resize(10, 4)

r = [{"Zero";"One";"Two";"Three";"Four";"Five";"Six";"Seven";"Eight";"Nine"}]     
Arr1 = r           ' Arr1 is now (1 To 10, 1 To 4) As Variant
r.ClearContents

Answer 2

试试这个：

Sub test()
    Dim limit As Integer
    limit = 3 'get limit from somewhere

    Dim Arr1 as Variant        
    Redim Arr1(0 To 9, 0 To limit) As Variant

    Dim Row As Long
    For Row = 0 To 3            
        Arr1(0, Row) = "Zero"
        Arr1(1, Row) = "One"
        Arr1(2, Row) = "Two"
        Arr1(3, Row) = "Three"
        Arr1(4, Row) = "Four"
        Arr1(5, Row) = "Five"
        Arr1(6, Row) = "Six"
        Arr1(7, Row) = "Seven"
        Arr1(8, Row) = "Eight"
        Arr1(9, Row) = "Nine"        
    Next Row
    MsgBox Arr1(0, 0)
End Sub

您已经知道您希望阵列具有的限制，因此只需在开始时定义限制。您无需再重新定义这些。

另外，Next Row 与 Row=Row+1 做同样的事情，所以你不想要两者

更新

如果你喜欢你也可以把你的字符串放在一个数组中

Sub test()
    Dim limit As Integer
    limit = 3 'get limit from somewhere

    Dim Arr1 as Variant        
    Redim Arr1(0 To 9, 0 To limit) As Variant

    Dim numbers As Variant
    numbers = Array("Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

    Dim Row As Integer, Col As Integer
    For Row = 0 To 3
        For Col = 0 To 9
            Arr1(Col, Row) = numbers(Col)
        Next Col
    Next Row
    MsgBox Arr1(0, 0)
End Sub

更新 2

真的有很多方法可以给猫剥皮......使用集合怎么样：

Sub test()
    Dim numbers As Variant
    numbers = Array("Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

    Dim col As Collection
    Set col = New Collection

    Dim i As Integer
    For i = 0 To 3 'get limit from somewhere
        col.Add numbers
    Next i

    MsgBox col(1)(0)  'col(1 to 4)(0 to 9)
End Sub