【CopyMemory】截取数组的一部分赋值给另一个数组

大灰狼1976

通过CopyMemory可以很方便地截取某个数组的一部分赋值给另一个数组：

1. 
   
2. <div>Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
   
3. 
   
4. Sub test()
   
5. Dim arr, brr, i&, j&
   
6. arr = [a1:d30]
   
7. ReDim brr(1 To 10, 1 To 2)
   
8. '取第2~3列的第11~20行数据给brr数组
   
9. For i = 1 To 2
   
10.   CopyMemory brr(1, i), arr(11, i + 1), 10 * 16 '单元格数组每个元素占24个字节
    
11.   '感谢几位大师的指正，variant类型32位下是16字节，64位下是24字节，使用时注意
    
12. Next i
    
13. [f1].Resize(10, 2) = brr
    
14. End Sub</div>

复制代码

也可以赋值给不同维数的数组。
根据数组类型不同，每个元素占用的字节数不同，可以通过类型来判断。

大灰狼1976

1. Sub test()
   
2. '将一个长整型颜色值分解成RGB存放到字节数组，arr元素为(r,g,b)
   
3. Dim clr&, arr(2) As Byte
   
4. clr = 65535
   
5. CopyMemory arr(0), clr, 3
   
6. End Sub

复制代码

limonet

这个强大，减少循环。

tdpzby

大佬一如既往的牛

jaxxcyh

这个技术牛的一塌糊涂，以前没见过。知识学的越多，方法就越多。谢谢大牛的无私奉献！

ynzsvt

数组每个元素占16个字节,而不是24字节，会引起内存错误系统崩溃。
实例中拷贝内存使用的是数组而不是单元格。

大灰狼1976

ynzsvt 发表于 2024-8-13 18:01
数组每个元素占16个字节,而不是24字节，会引起内存错误系统崩溃。
实例中拷贝内存使用的是数组而不是单元 ...

你好！感谢反馈！
我确实也查过variant数组元素好像是占16字节，但实际测试貌似24字节才是正确的，32位和64位EXCEL都测试过，方便的话请帮忙做个实例，感谢

ynzsvt

大灰狼1976 发表于 2024-8-13 20:56
你好！感谢反馈！
我确实也查过variant数组元素好像是占16字节，但实际测试貌似24字节才是正确的，32位 ...

看图片，240字节拷贝了15个，即每个字节16

ynzsvt

我的Excel是32位的2010版本。

ykcbf1100

用原附件改了一下数据，改取20行数据，用24能提取到完整数据，用16只能提取一部分数据。
我是64位office2021