请问如何一次性提取数组中的多列数据？

onthetrip

alstar 发表于 2018-9-13 15:22
不是那个意思。大佬。。如果能一次性提取多列，有时候比循环更直接点。。

不是高低之分，我刚入门，而 ...

我对这个函数也是云里雾里，怕出错，实战中不敢用。循环是最稳妥的。
如果你是64位的OFFICE,在Declare前面加上ptrsafe关键字。
下面代码将a数组的3-7列截取出来，放到b数组：

1. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (NewArr As Any, OldArr As Any, ByVal Lenth As Long)
   
2. Sub GetNewArr()
   
3. Dim a(1 to 10,1 to 10)'源数组
   
4. Dim b(1 to 10,1 to 5)'新数组
   
5. CopyMemory b(1, 1), a(1, 3), 50*16
   
6. End Sub
   

复制代码