Скопируйте данные с одного листа и вставьте эти данные во все листы.

Question

У меня есть лист, в котором теперь хранятся формулы. Я хочу, чтобы формулы копировались и вставлялись во все другие рабочие листы, которые есть в моей рабочей книге.

У меня есть 70 листов, на которых необходимо хранить данные. скопировано.

имя листа, с которого будут скопированы данные: «ОБРАЗЕЦ» данные должны быть скопированы с листа № 3 («ОБРАЗЕЦ» - это лист № 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, но я не уверен, правильно ли я прочел «Образец» - это лист № 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