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

问题描述 投票:0回答:1

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

最终结果应该相同。

arrays vba vb.net excel-vba multidimensional-array
1个回答
0
投票

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

For ArrayElement = 0 to Ubound(myArray, 3) 
    myArray(0,0,Arrayelement) = ArrayElement
Next ArrayElement
© www.soinside.com 2019 - 2024. All rights reserved.