vba调用Excel进行批量复制粘贴的时候
一般有两种方式进行处理

方式一:
正常速度还好, 不过这种方式容易突然复制到一半变卡, 要卡一阵子才会恢复.
个人总结了好多次测试, 感觉应该是EXCEL复制, 复制, 复制, 变得一头鸟尽, 无法控制
太快的操作而导致有些本来在正常的手动复制时可以正常完成的工作不能正常完成而发生变卡的问题
这个时候, 在每次pastespecial之后我们要加一个doevents, 测试可以解决此问题
不过速度不如方式二. 只能将就了吧, 要不然太难受了, 有时正常还好, 有时变卡了, 就难受的很了.

for i=1 to 1000
Sheet1.cells(i,1).copy
Sheet1.cells(i,2).pastespecial paste:=13 '按源格式与数值
'这里可以加Doevents这语句
next i

方式二:
这种不卡, 不过可能会带来不必要的公式, 乃至出错
for i=1 to 100
Sheet1.cells(i,1).copy Sheet1.cells(i,2) '最直接的粘贴, 当然也包含公式粘贴
next i