我必须将一堆数据从一个工作簿复制到另一个工作簿,我通常使用以下方法:
wkbk1.activate
range(cells(2,col1),cells(lr,col1).select
application.cutcopymode = false
selection.copy
wkbk2.activate
Range("C2").select
activesheet.paste
我必须传输20多列数据,而这些列不能1:1转换到第二个工作簿,所以我不能复制整个范围。有没有更有效的方法将所有这些数据从一个工作簿传输到另一个工作簿?
1条答案
按热度按时间qyzbxkaa1#
第一个月
如果不使用select和activate,速度会更快。
wkbk2.range((cells(2,col1),cells(lr,col1)).value = wkbk1.range((cells(2,col1),cells(lr,col1)).value
您还可以使用.value代替复制粘贴