VBA动态添加二维数组

在VBA中，可以通过ReDim语句动态添加二维数组。下面是一个示例代码：

Dim myArray() As Variant
ReDim myArray(1 To 3, 1 To 2) ' 创建一个 3x2 的二维数组
myArray(1, 1) = "A" ' 给数组元素赋值
myArray(1, 2) = "B"
myArray(2, 1) = "C"
myArray(2, 2) = "D"
myArray(3, 1) = "E"
myArray(3, 2) = "F"

ReDim Preserve myArray(1 To 4, 1 To 2) ' 在第一维上添加一个元素
myArray(4, 1) = "G"
myArray(4, 2) = "H"

在上面的代码中，首先使用ReDim语句创建了一个3x2的二维数组，然后给数组元素赋值。接着，使用ReDim Preserve语句在第一维上添加了一个元素，并给新添加的元素赋值。注意，使用Preserve关键字可以保留原数组中已经存在的元素。

相关问题

VBA动态添加二维数组数据

在 VBA 中，可以使用 ReDim 语句来动态地重新定义数组的大小。下面是一个示例代码，演示了如何动态地添加数据到二维数组中：

Sub AddDataTo2DArray()
    '定义一个二维数组
    Dim myArray() As Variant
    ReDim myArray(0 To 0, 0 To 2)
    
    '添加第一行数据
    myArray(0, 0) = "Name"
    myArray(0, 1) = "Age"
    myArray(0, 2) = "Gender"
    
    '动态添加第二行数据
    ReDim Preserve myArray(0 To 1, 0 To 2)
    myArray(1, 0) = "Tom"
    myArray(1, 1) = 25
    myArray(1, 2) = "Male"
    
    '动态添加第三行数据
    ReDim Preserve myArray(0 To 2, 0 To 2)
    myArray(2, 0) = "Mary"
    myArray(2, 1) = 30
    myArray(2, 2) = "Female"
    
    '打印数组数据
    For i = 0 To UBound(myArray)
        For j = 0 To UBound(myArray, 2)
            Debug.Print myArray(i, j)
        Next j
    Next i
End Sub

在上面的示例中，我首先定义了一个二维数组 myArray，并将其大小设置为 1 行 3 列。然后，我添加了第一行数据，并使用 ReDim 语句将数组大小动态地扩展到 2 行 3 列，并将第二行数据添加到数组中。接着，我再次使用 ReDim 语句将数组大小动态地扩展到 3 行 3 列，并将第三行数据添加到数组中。最后，我使用两个 for 循环来打印数组中的所有数据。

需要注意的是，在使用 ReDim 语句时，需要指定 Preserve 关键字，以保留数组中已有的数据。否则，数组的重新定义将会删除数组中所有的数据。

VBA如何增加二维数组的维度，原有数据不变

VBA中可以使用ReDim语句来增加二维数组的维度，并在其中添加Preserve关键字来保留原有数据。代码示例如下：

ReDim Preserve myArray(1 To x, 1 To y)

其中x和y分别为新的维度大小。
注意:使用ReDim Preserve语句增加数组维度时，只能增加数组的最后一维，不能改变前面维度的大小。