Question

我的数组有四列数据。我想将一整行粘贴到Excel中。（尽管不是整个阵列）

目前我正在使用4行代码，但我怀疑可能会有一个简单的单行代码。

        Cells(i, 1).Value = myArry(i, 1)
        Cells(i, 2).Value = myArry(i, 2)
        Cells(i, 3).Value = myArry(i, 3)
        Cells(i, 4).Value = myArry(i, 4)

你能建议一个更简单的解决方案吗？提前谢谢。

P.S。欢迎编辑这篇文章。

Answer 1

您可以使用Index从2D数组中提取行（或列）

    Range(Cells(i, 1), Cells(i, 4)).Value = Application.Index(myArry, i)

VBA值从多维数组到特定范围

1 个答案: