我有一个名为Myarray的2d数组(1:340,1:50)。我想将其调整为1:340,1:53。如何在数组之间添加列,而不是在数组末尾添加列。
如果您使用过动态数组,则可以调整它们的大小。
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
抱歉但是在VBA中创建后无法更改阵列的大小