VBA大量复制粘贴如何提速

doitbest

10楼建议可行,EXCEL读取TXT文件快多了

Zamyi

copy不会比数组慢。只是象楼主这么大的量，恐怕EXCEL无法胜任。
Sub test()
Sheet1.[a1:j60000] = "dfgjkkkl"
t = Timer
Sheet1.[a1:j60000].Copy Sheet2.[a1]
t1 = Timer - t

t = Timer
a = Sheet1.[a1:j60000]
Sheet3.[a1:j60000] = a
t2 = Timer - t
MsgBox t1 & Chr(10) & t2
End Sub

buzaihuma

一指禅62 发表于 2011-11-1 19:40
这是我以前做的一个比较试验，参考一下

我测试了下，在单个单个生成数据方面，的确先存入数组中，再由数组统一导入一个RANGE中会比较快。

但在复制粘贴方面，你的程序中“传统方法”是用如下方法进行复制粘贴：
for i = 1 to maxi
  for j = 1 to maxj
     sheet2.cells(i,j) = sheet1.cells(i,j)
  next j
next i
而“数组方法”是用的是
arr()=range1
range2.value= arr()
的方法。

但实际上，我们很少一个CELL一个CELL地去复制数据，如果把“传统方法”改成
range2.value= range1.value
这样反而比用数组要快哦。

buzaihuma

doitbest 发表于 2011-11-1 17:02
用range()=range().value方式

测试了下，用range.value=... 的方式的确加速了很多，数据量少的时候大概用时是原来的一半， 数据量大的时候可能只有原来用时的1/3，而且内存占用也少很多。不过在运行过程中发现EXCEL进程所占的内存一直在上升（不过依然比range.copy的方法要少就是了），不知道是不是有内存泄漏啥的。

panan123_0

用SQL语句取数值 不用打开工作簿。
应该点吧

硅谷少年

panan123_0 发表于 2011-11-2 16:00
用SQL语句取数值 不用打开工作簿。
应该点吧

方便上个代码实例吗？我被这个问题也困扰好久了，谢谢。

红太阳的天

buzaihuma 发表于 2011-11-2 15:48
测试了下，用range.value=... 的方式的确加速了很多，数据量少的时候大概用时是原来的一半， 数据量大的 ...

我也测试了,这个方法真的快多了,我也头疼了很久,现在看来,这个实用!!