小编Mic*_*ael的帖子

VBA将3维数组粘贴到表格中

我有一个3维阵列(5 x 5 x 3),我需要将(5 x 5 x 1)张贴到Sheet1,(5 x 5 x 2)到Sheet2,(5 x 5 x 3)到Sheet3.因为我在3个嵌套for循环中构建这个3维数组,所以我不能使用for循环来访问循环的(5 x 5)部分.是否有任何标识符告诉excel索引数组的所有元素,例如在MatLab中使用(1:end,1:end,1)?基本代码如下:

Sub practice_2()

Dim arr(1 To 5, 1 To 5, 1 To 3)
Dim a As Integer
Dim x As Integer
Dim y As Integer

    For a = 1 To 3
        For x = 1 To 5
            For y = 1 To 5
                arr(x, y, a) = x * y
            Next
        Next

        Sheets(a).Select
        'Following line is where I want to access the …
Run Code Online (Sandbox Code Playgroud)

excel vba multidimensional-array

4
推荐指数
1
解决办法
1万
查看次数

标签 统计

excel ×1

multidimensional-array ×1

vba ×1