我是VBA的超级新手(而且堆栈溢出,这是我的第一篇文章),我正在尝试简化我的代码,但是我似乎无法找到在1行中将1D数组添加到3D数组的方法。 。我有3维数组
Dim myArray(50, 20, 3) As Variant
当前,我必须这样做:
myArray(0, 0, 0) = 0: myArray(0, 0, 1) = 1: myArray(0, 0, 2) = 2
您可以看到我实际上在一行中有3条语句,我不得不键入3次数组名称。我想做的是这样的:
myArray(0, 0) = {0,1,2}
最终结果应该相同。
您可以像这样使用For...Next
循环:
For ArrayElement = 0 to Ubound(myArray, 3)
myArray(0,0,Arrayelement) = ArrayElement
Next ArrayElement