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

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的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