excel - 将部分数组输出到范围而不循环？

Question

将数组的一部分输出到范围的最快和最有效的方法是什么？

我可以很容易地将工作表范围读取到 VBA 数组:

Dim rng as Range
Dim arr() as Variant
set rng as whatever
arr = rng

我可以很容易地将数组写入工作表:

rng = arr

但是，如果我只想将数组的选定列重新复制到工作表中，例如第 24-26 列:

For i = 2 To 413497
    For j = 24 To 26
        Cells(i, j) = arr(i, j)
    Next j
Next i

没有for-next循环，有没有最快的方法？

Answer 1

您可以使用 application.index:

Sub tst()

Dim rng As Range
Dim arr() As Variant, x
Set rng = Range("a1:ab500000")
arr = rng

x = Application.Index(arr, [row(2:413497)], Array(24, 25, 26))
Sheets(2).Cells(2, 1).Resize(413497, 3).Value = x

End Sub