VBA宏数据粘贴多张表

【问题标题】：VBA Macro data paste multiple sheetsVBA宏数据粘贴多张表
【发布时间】：2018-10-25 00:52:43
【问题描述】：

我在Sheet1 中有数据，在A2:D17 范围内。

我想复制这些数据并粘贴到多个工作表中（工作表数为 12）。

【问题讨论】：

好吧，那就这样做吧。问题出在哪里？到目前为止你尝试了什么？请阅读No attempt was made。如果您不知道从哪里开始，请查看宏记录器并先进行一些研究。

【解决方案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

【讨论】：