Excel VBA-復制/粘貼范圍從一張紙到所有后續紙

Question

第一次問一個問題，所以請讓我知道我是否有任何遺漏。

我從另一個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

Answer 1

使用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