从一张表复制数据并将该数据粘贴到所有工作表中

Question

我现在有一个存储公式的工作表我希望将公式复制并粘贴到我的工作簿中的所有其他工作表中

我有 70 张需要复制数据的工作表。

将复制数据的工作表名称为“SAMPLE”数据应从工作表编号 3 复制（“SAMPLE”为工作表号 1，离开 2 个工作表后，需要在“Y1:BA151”范围内的每个工作表中复制数据

我试过以下代码

Sub COPY()

 Dim WS_Count As Integer
     Dim I As Integer


     WS_Count = ActiveWorkbook.Worksheets.Count


     For I = 1 To 70

       Worksheets("SAMPLE").Range("Y1:BA151").COPY



     Next I

  End Sub

但我是初学者，所以我缺少某个地方，请帮助解决这个问题。 提前谢谢。

Answer 1

您需要从3循环到Count of the Worksheets ，然后在循环中使用i 。 或者也许应该是4 ，不确定我是否正在正确阅读“'SAMPLE' 是第 1 张纸并且在留下 2 张纸之后”。

Sub Copy

    ThisWorkbook.Worksheets("SAMPLE").Range("Y1:BA151").Copy

    Dim i as Long
    For i = 3 to ThisWorkbook.Worksheets.Count
         ThisWorkbook.Worksheets(i).Range("Y1").PasteSpecial xlPasteAll
    Next

    Application.CutCopyMode = False
End Sub