VBA宏数据粘贴多张纸

Question

我的Sheet1范围内的数据位于A2:D17。

我想要复制这些数据＆amp;粘贴在多张纸上（纸张数为12张）。

Answer 1

Sub CopyData()
Dim ws As Worksheet
Dim wsStart As Worksheet
Set wsStart = Worksheets("Sheet1")

For Each ws In ThisWorkbook.Sheets
    If Not ws.Name = wsStart.Name Then
        wsStart.Range("A2:D17").Copy
        ws.Range("A2").PasteSpecial (xlPasteAll)
    End If
Next ws

End Sub