[已解决]多维数组怎么局部导出

qwh923820

4万多行的表，有12列，用for循环单个导出太慢了，有2W多的文件，整个宏执行一个文件要10秒多。

假如 A = RANGE("A1：G2000")
要导出 数组A 当中 对应的“B20：F1000"区域的内容，怎么表示，

能直接这样写吗
B=A(20 TO 1000，2 TO 7)
[H1].RESIZE(ubound(B),5) = B

要数组的，不要FOR循环，太慢了

最佳答案

月排行榜 / 总排行榜

砂海

2016-1-9 08:39

除非是很整齐的数据块.

貌似 不可以. 总得循环.
不过 变量声明类型可以减少一个循环,且 对应数据类型会快一点.

模块级
type 记录
  姓名 as string
  语文 as byte
  数学 as single
end type

sub程序中
A = RANGE("A1：G2000")
dim 当年记录 (1 to 1000 ) as 记录, i& , j&
for i=20 to 1000
j=j+1
当年记录(i).姓名=A(i , 5)
当年记录(i).数学=A(i , 6)
当年记录(i).语文=A(i , 7)
next i

下面可以
当年合格记录(1)=当年记录(12)
一句写一整行数据

感觉 这一段 适合 本段数据 要复杂处理.

也许,可以把代码贴出来,高手优化一下.

跳转到最佳答案楼层

dsmch

B = RANGE("B20：F1000")

砂海

除非是很整齐的数据块.

貌似 不可以. 总得循环.
不过 变量声明类型可以减少一个循环,且 对应数据类型会快一点.

模块级
type 记录
  姓名 as string
  语文 as byte
  数学 as single
end type

sub程序中
A = RANGE("A1：G2000")
dim 当年记录 (1 to 1000 ) as 记录, i& , j&
for i=20 to 1000
j=j+1
当年记录(i).姓名=A(i , 5)
当年记录(i).数学=A(i , 6)
当年记录(i).语文=A(i , 7)
next i

下面可以
当年合格记录(1)=当年记录(12)
一句写一整行数据

感觉 这一段 适合 本段数据 要复杂处理.

也许,可以把代码贴出来,高手优化一下.

qwh923820

dsmch 发表于 2016-1-9 08:30
B = RANGE("B20：F1000")

数组不单单是引用，而且是计算的，如果用数组读到内存中进行多次计算是很快的，如果每次读取单元格信息进行计算要慢死的