Excel VBA-复制/粘贴范围从一张工作表到所有后续工作表 [英] Excel VBA - Copy/Paste range from one sheet to all proceeding sheets
本文介绍了Excel VBA-复制/粘贴范围从一张工作表到所有后续工作表的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我在另一篇SO帖子中发现了这段代码。我正在尝试将整个工作表从"DNU"复制到每个后续工作表中。我的问题是,这将粘贴值,但我希望做一个常规的粘贴,以保持格式和公式。我尝试从"值"更改为复制和粘贴,但以错误告终。如有任何帮助,我们将不胜感激。谢谢。
代码如下: ~
Dim wsVar As Worksheet
Dim i as Integer
For i = 6 to ThisWorkbook.Worksheets.Count
ThisWorkbook.Worksheets(i).Range("A1:y200").Value = ThisWorkbook.Worksheets("DNU").Range("A1:Y200").Value
Next i
End Sub
推荐答案
使用Range对象的Copy()方法
Dim wsVar As Worksheet
Dim i as Integer
With ThisWorkbook
For i = 6 to .Worksheets.Count
.Worksheets("DNU").Range("A1:Y200").Copy destination:=.Worksheets(i).Range("A1:Y200")
Next
End With
这篇关于Excel VBA-复制/粘贴范围从一张工作表到所有后续工作表的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文