寻找最优的最高效的复制粘贴代码，把数据源表格中的大量数据复制到汇总表的上面

星梦月缘

各位大神好：

       我有好好几个表格，里面有的大量的数据（2万多行*30多列的数据），需要每天把他复制粘贴到汇总表中，自己做了一个代码，但是感觉运行速度比较慢，所以请教各位大神，

寻找最优的最高效的拷贝代码，把数据源表格中的所有数据复制到汇总表的sheet1上面，由于数量比较大，希望代码能增加运行完毕之后，弹框显示总共运行了多长时间。详细案例文件见附件，想知道 是在不打开数据源表格的情况下复制粘贴会速度更快，还是打开数据表然后复制粘贴，再关闭表格的速度会快一些。

非常感谢了。

hhjjpp

不应该用复制粘贴，应该循环赋值、成片设置格式

hhjjpp

大量数据会在剪贴板霸占运行资源

星梦月缘

hhjjpp 发表于 2018-7-3 16:59
不应该用复制粘贴，应该循环赋值、成片设置格式

老师 能否帮忙写一个代码，拜读学习学习 非常感谢了

星梦月缘

朱荣兴 发表于 2018-7-3 17:10
数组赋值速度会快得多。

老师 能否帮忙写一个代码，拜读学习学习 非常感谢了

星梦月缘

hhjjpp 发表于 2018-7-3 16:59
不应该用复制粘贴，应该循环赋值、成片设置格式

是不是应该这样写代码 比较快一些
Dim m, n As Integer

m = Sheet1.Range("a65536").End(xlUp).Row
n = Sheet1.Range("a2").End(xlToRight).Column

Set arr = Sheet1.Range("a1").Resize(m, n)
arr.Copy Sheet2.Range("a1")