Excel VBA-复制/粘贴范围从一张工作表到所有正在进行的工作表

第一次问问题，如果我遗漏了什么，请告诉我

我从另一个SO帖子中找到了这个代码。我试图将整个工作表从“DNU”复制到每个工作表中。我的问题是，这将粘贴值，但我希望做一个定期粘贴，以保持格式和公式。我尝试过将“值”更改为复制和粘贴，但最终出现了错误。感谢您的帮助。多谢各位

代码如下： ~

使用范围对象的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

---

ThisWorkbook.Worksheets（“DNU”）.Range（“A1:Y200”）。复制此工作簿.Worksheets（i.Range（“A1”）

@BigBen是的，谢谢）遇到了另一个问题，新工作表中的列宽与“DNU”工作表中的列宽不同。有没有办法复制宽度格式？对于i=6到.Worksheets.Count.Worksheets（“DNU”）.Range（“A1:Y200”）.copy.Worksheets（i）.Range（“A1:Y200”）.Paste特殊粘贴：=xlPasteAll.Worksheets（i）.Range（“A1:Y200”）.Paste特殊粘贴：=xlPasteColumnWidths下一步谢谢！“DNU”中的分组不会保存到新工作表中有什么原因吗？有没有办法解决这个问题，或者他们需要在每个工作表中重新分组？@Hiimtroymcclure，我不使用组，因此无法在这方面为您提供帮助。但如果我的回答解决了你原来的问题，你可能会想把它标记为接受。非常感谢。

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