CopyMemory数组复制与粘贴

lss001

伶俐的毛豆 发表于 2024-6-27 08:37
还是会自动重启excel

处理数组参考7楼链接
或者上传附件进行实测

lss001

lss001 发表于 2024-6-27 08:53
处理数组参考7楼链接
或者上传附件进行实测

'Office64位参考
Private Declare Sub CopyMemory _
    Lib "kernel32" Alias "RtlMoveMemory" ( _
    pDst As Any, pSrc As Any, _
    ByVal ByteLen As LongPtr)

Sub 数组复制与粘贴()
    Dim k As LongPtr, ar(), br(), r&, c&
    ar = Range("a1:a9")
    r = Ubound(ar, 1)
    c = Ubound(ar, 2)
    ReDim br(1 To r, 1 To c)
    k = r * c * Len(ar(1, 1)) * 8
    CopyMemory brr(1, 1)), _
        ByVal VarPtr(ar(1, 1)), k
    '[c1].Resize(Ubound(br), 1) = br 'br新数组
End Sub

leolee82

lss001 发表于 2024-9-29 00:19
'Office64位参考
Private Declare Sub CopyMemory _
    Lib "kernel32" Alias "RtlMoveMemory" ( _
...

使用CopyMemory时请注意，如果原数组比目标数组生命周期短的话，数组Item不能是指针或包含指针的Variant，这样复制出来的数组与原数组用的是同样内存位置的数据。源数组超出函数范围释放内存后会出问题，通常目标数组的值会变为0。
可以直接根据原数组的数据结构创建一个ArrayView（数据指向原数组数据，维数和BASE之类的随便弄），然后再将ArrayView的内存重置