VBA大量复制粘贴如何提速

buzaihuma · 发表于 2011-11-1 16:58

各位高人请教一个关于复制粘贴的问题
最近需要处理大量数据，大概涉及几千个WORKBOOK，几万个WORKSHEET,几十万个RANGE这样。
我一般是从预先准备好的目录表中取出sourceWorkBook, sourceSheet, sourceRange 和 targetWorkBook, targetSheet, targetRange
然后用
workbooks(sourceWorkBook).worksheets(sourceSheet).range(sourceRange).copy
workbooks(targetWorkBook).Sheets(targetSheet).Range(targetRange).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
来进行复制操作。
但发现这样的速度很慢，而且随着运行时间的变长越来越慢。不知对此类大量复制粘贴工作有没有什么较好的优化方法，感谢！

doitbest · 发表于 2011-11-1 17:02

用range()=range().value方式

sunsoncheng · 发表于 2011-11-1 17:05

真想知道这是干吗的呢?

不知你的工作薄是什么的,几千个,每个一打开关闭要0.5S也要一个小时了吧?
估计方法上有问题!

buzaihuma · 发表于 2011-11-1 17:10

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

恩，我也觉得似乎只复制值会快一些，我回去测试下，谢谢。

buzaihuma · 发表于 2011-11-1 17:13

sunsoncheng 发表于 2011-11-1 17:05
真想知道这是干吗的呢?

不知你的工作薄是什么的,几千个,每个一打开关闭要0.5S也要一个小时了吧?

是啊，打开关闭如果要1小时的话，我希望复制粘贴的工作能在6小时内完成就很好了。

一指禅62 · 发表于 2011-11-1 17:15

数组方式提取数组—保存数据—写出数据，这样速度会快许多。

buzaihuma · 发表于 2011-11-1 17:23

一指禅62 发表于 2011-11-1 17:15
数组方式提取数组—保存数据—写出数据，这样速度会快许多。

楼上的意思我还不大清楚

是指本来用 range(a).copy range(b).paste 的操作
替换成
先定义一个数组，然后把
range(a)的值赋给这个数组
然后将这个数组的值赋给range(b)

是这样么？

这样的话，把RANGE和数组互相赋值用什么方法比较好呢……我只想到了一个个给数组元素赋值。

AVEL · 发表于 2011-11-1 17:33

请自行参考一下链接：
http://club.excelhome.net/thread-570911-1-2.html

一指禅62 · 发表于 2011-11-1 19:40

buzaihuma 发表于 2011-11-1 17:23
楼上的意思我还不大清楚

是指本来用 range(a).copy range(b).paste 的操作

这是我以前做的一个比较试验，参考一下

数组可以提高计算速度.rar (19.32 KB, 下载次数: 353)

ah2005 · 发表于 2011-11-1 22:14

我看见过类似的情况。楼主是用软件从某个地方导出来的EXCEL文件。。。

建议重新想办法导出数据，TXT，CSV或者XML都可以很方便的处理。

		自动登录	找回密码
密码			免费注册

[求助] VBA大量复制粘贴如何提速