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关键字可以保留原数组中已经存在的元素。