CopyMemory数组复制与粘贴

lss001

Private Declare Sub CopyMemory _
    Lib "kernel32" _
    Alias "RtlMoveMemory" ( _
    pDst As Any, _
    pSrc As Any, _
    ByVal ByteLen As Long)

Sub 数组复制与粘贴()
    Dim ar(): ar = Range("a1:a9")
    Dim br(): br = Range("b1:b9")
    CopyMemory _
        ByVal VarPtr(br(3, 1)), _
        ByVal VarPtr(ar(4, 1)), _
        5 * 16
    '第1参数:3表示从第3个开始粘贴
    '第2参数:4表示从第4个开始复制
    '第3参数:5表示复制个数,16表示存储空间
    '[c1].Resize(Ubound(br), 1) = br 'br新数组
End Sub

x-xx-xx

居然还有这种API

joforn

5 * 16是一个巨大的错误。

伶俐的毛豆

64bit，2016版本excel，程序運行正常，就是每當執行到最後一句代碼時（end，或者end sub ），excel總是（很有規律）無辜關閉后又自己開啟

lss001

伶俐的毛豆 发表于 2024-6-26 15:04
64bit，2016版本excel，程序運行正常，就是每當執行到最後一句代碼時（end，或者end sub ），excel總是 ...

64位Office可以在函数声明中加入PtrSafe试试↓

#If VBA7 And Win64 Then
   Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As Long)
#Else
   Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
#End If

伶俐的毛豆

lss001 发表于 2024-6-26 15:24
64位Office可以在函数声明中加入PtrSafe试试↓

Private Declare PtrSafe Sub CopyMemory _

4樓的截圖中，我已經加了，都不行，改數據類型也不行

lss001

伶俐的毛豆 发表于 2024-6-26 15:28
4樓的截圖中，我已經加了，都不行，改數據類型也不行

CopyMemory比较不稳定，建议在office中弃用
改用虚似表来处理数组！https://club.excelhome.net/forum.php?mod=viewthread&tid=1607492&extra=&mobile=2&_dsign=2bd6ad8d

morpheus126

伶俐的毛豆 发表于 2024-6-26 15:04
64bit，2016版本excel，程序運行正常，就是每當執行到最後一句代碼時（end，或者end sub ），excel總是 ...

2016可能安装包有问题，可以重装一下
我这边64&365 没报错

不够没看懂5*16代表什么，内存空间什么的吗？

morpheus126

morpheus126 发表于 2024-6-26 15:43
2016可能安装包有问题，可以重装一下
我这边64&365 没报错

https://club.excelhome.net/threa ... tml?_dsign=a5f0a650

找到了。。。

伶俐的毛豆

lss001 发表于 2024-6-26 15:24
64位Office可以在函数声明中加入PtrSafe试试↓

#If VBA7 And Win64 Then

还是会自动重启excel