VBA将一个数组添加到另一个数组

Question

我是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}

最终结果应该相同。

Answer 1

您可以像这样使用For...Next循环：

For ArrayElement = 0 to Ubound(myArray, 3) 
    myArray(0,0,Arrayelement) = ArrayElement
Next ArrayElement