VBA中数组72变（随心所欲复制）

版权声明：本文为博主原创文章，转载请注明出处。 https://blog.csdn.net/taller_2000/article/details/81586167

西游记中孙悟空最神奇的本领之一就是拔根毫毛，瞬间变出无数个孙猴子。代码中的数组可谓神通广大，如何实现瞬间变身呢？其实也很简单。

Private Declare Sub CopyMemory Lib "kernel32" _
    Alias "RtlMoveMemory" ( _
    Destination As Any, _
    Source As Any, _
    ByVal Length As Long)
Sub CopyArray()
    Dim i As Integer
    Dim avntData As Variant
    Dim avntNew(1 To 4)
    Dim avntCopy As Variant
    avntData = Array(0, 1, 2, 3, 4, 5, 6, 7, 8)
    Debug.Print "avntData:" & Join(avntData, ",")
    avntCopy = avntData
    Debug.Print "avntCopy:" & Join(avntCopy, ",")
    CopyMemory ByVal VarPtr(avntNew(1)), _
               ByVal VarPtr(avntData(3)), _
               4 * 16
    Debug.Print "avntNew:"; Join(avntNew, ",")
End Sub

• 照葫芦画瓢 – 全复制
  新数组名 = 原数组名，第13行代码克隆产生一个完全相同的数组。示例代码中的avntCopy = avntData将avntData数组内容全部复制到数组avntCopy中，也就是说两个数组完全相同。
• 断章取义 – 部分复制
  使用API函数CopyMemory可以复制指定位置开始的指定数量的数组元素到一个新数组。参数Destination指定目标数组在内存中的起始地址，参数 Source指定源数组中需要复制的元素在内存中的起始地址， 参数Length指定复制的内存空间尺寸（单位是字节）。
  VarPtr(avntNew(1))获取目标数组中第一个元素的内存地址，与此类似VarPtr(avntData(3))获取源数组中第2个元素（下标下届为0）的内存地址，avntData是Variant型数组，每个元素需占用16个字节内存空间，4为所要的单元个数，即复制4个数组元素。

【立即窗口】中的输出结果：

avntData:0,1,2,3,4,5,6,7,8
avntCopy:0,1,2,3,4,5,6,7,8
avntNew:3,4,5,6