如何在vba中的数组之间添加列

Question

我有一个名为Myarray的2d阵列（1：340,1：50）。我想将其调整为1：340,1：53。如何在数组之间添加列，而不是在数组末尾添加。

Answer 1

抱歉，在VBA中创建数组后，您无法更改数组的大小

Answer 2

如果您使用过动态数组，则可以调整它们的大小。

Sub test()
    Dim Myarray() '<~~dynamic array :Dim Myarray(1 to 340, 1 to 50) <~~static array

    ReDim Myarray(1 To 340, 1 To 50)

    Myarray(340, 50) = "a"

    ReDim Preserve Myarray(1 To 340, 1 To 53)

    MsgBox Myarray(340, 50)
    MsgBox UBound(Myarray, 2)
End Sub