求大神支招，我都崩溃了！！

我发现我不会@
@DwcCC
@ @k6kkk
@ @ @小菜鸡🐷🐨

@DwcCC

@小菜鸡
'传值也是一模一样
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
Sub aa()
On Error Resume Next
Dim arr1 As Variant
Dim arr2 As Variant
arr1 = Range("a1:a5")
ReDim arr2(1 To 5, 1 To 1)
CopyMemory ByVal VarPtr(arr2(1, 1)), ByVal VarPtr(arr1(1, 1)), 32 '这个为啥填80就退出啊!填32没有问题，48和64偶尔可以，没错误提示，闪退
Debug.Print arr1(1, 1)
Debug.Print arr1(5, 1)
Debug.Print arr2(1, 1)
Debug.Print arr2(5, 1)
Debug.Print VarPtr(arr1(1, 1)) - VarPtr(arr1(5, 1)) & " " & VarPtr(arr2(1, 1)) - VarPtr(arr2(5, 1))
End Sub

On Error Resume Next
有没有这句效果都一样，都没有错误提示。