第一次问一个问题,如果我遗漏任何东西,请告诉我。
我从另一个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