本文介绍了一种使用VBA非循环方式快速复制数组的方法。通过声明CopyMemory子程序并调用内核32位DLL，实现了从[a1:a12]到[b1:e3]的数据快速复制。这种方法避免了传统循环的效率问题。
'以下代码可以利用非循环的方式,实现把[a1:a12]的数据快速复制到[b1:e3]:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Sub xxx()
Dim arr1(), arr2(1 To 3, 1 To 4)
arr1 = Range("a1:a12")
CopyMemory ByVal VarPtr(arr2(1, 1)), ByVal VarPtr(arr1(1, 1)), 12 * 16'variant需要16个字节存储空间
Range("b1:e3") = arr2
End Sub
扫一扫
2567
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
