标签： VBA，数组

本文展示如何将数据从一个数组移动到另一个数组，并转移后的数据输入到另一个位置。也就是说，如何使用第二个数组将数据从Excel中移出，并存储到内存中，然后再移回单元格中。

示例过程的目标不是移动整个数组，而是移动数组的一部分。在这个示例中，将移动数组中的第2列、第8列和第19列，并且只有这些列的 数据存储 在第二个数组中，从而以这种方式筛选掉第一个数组中大量不必要的数据。

下面的过程将数据从数组(ar)移到数组(var)。

Sub MoveArray()

Dim ar As Variant

Dim var As Variant

Dim arr As Variant

Dim i As Long

Dim j As Long

arr = [{2,8,19}]

ar = Sheet1.[A1].CurrentRegion

ReDim var(1 To UBound(ar), 1 To UBound(arr))

For i = 1 To UBound(ar)

For j = 1 To UBound(arr)

var(i, j) = ar(i, arr(j))

Next j

Next i

Sheet2.[A1].Resize(UBound(var), UBound(arr)) = var

End Sub

原始数据在工作表Sheet1中单元格A1所在的当前区域：

ar = Sheet1.[A1].CurrentRegion

要获取该区域中的第2、8、19列：

arr = [{2,8,19}]

重新定义存放要移动的数据的数组：

ReDim var(1 To UBound(ar), 1 To UBound(arr))

示例中是29行3列。

然后逐行将数据存储到数组var：

For i = 1 To UBound(ar)

For j = 1 To UBound(arr)

var(i, j) = ar(i, arr(j))

Next j

Next i

最后，将数组var中的数据输出到指定工作表：

Sheet2.[A1].Resize(UBound(var), UBound(arr)) = var

有兴趣的朋友可以到知识星球App完美Excel社群下载示例工作簿。