[英]Excel VBA - Copy range from one sheet paste to all sheets after certain sheet in workbook
[英]Excel VBA - Copy/Paste range from one sheet to all proceeding sheets
第一次问一个问题,所以请让我知道我是否有任何遗漏。
我从另一个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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.