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