vba copymemory 复制二维数组 示例

在VBA (Visual Basic for Applications) 中，复制二维数组通常使用`Redim Preserve`语句结合循环来实现，因为VBA并不直接支持内存复制函数像C++或C#中的`memcpy`。下面是一个简单的示例，假设我们有一个源二维数组`SourceArray`和目标二维数组`DestinationArray`：

Sub CopyMemoryExample()
    ' 定义源二维数组
    Dim SourceArray(1 To 3, 1 To 3) As Variant
    SourceArray = Array("A1", "B1", "C1", "A2", "B2", "C2", "A3", "B3", "C3")
    
    ' 定义目标二维数组
    ReDim DestinationArray(1 To 3, 1 To 3) ' 初始大小可能需要匹配源数组

    ' 使用For...Each循环复制数组
    For i = 1 To UBound(SourceArray, 1)
        For j = 1 To UBound(SourceArray, 2)
            DestinationArray(i, j) = SourceArray(i, j) ' 直接赋值
        Next j
    Next i
    
    ' 现在DestinationArray已经包含了SourceArray的内容
End Sub

请注意，在实际应用中，如果数据量非常大，直接赋值可能会导致效率较低。在这种情况下，你可以考虑使用`Application.Transpose`来临时转换一维数组，然后利用`Copy`和`PasteSpecial`进行更高效的复制。