标签：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社群下载示例工作簿。
