копировать ячейки на нескольких листах

Question

У меня есть ежегодный планировщик, содержащий 53 листа.Я заполняю лист 1 еженедельными, ежемесячными, 3 ежемесячными и 6 ежемесячными заданиями.Затем я заполняю ячейки: еженедельно: синий ежемесячно: зеленый 3 месяца: желтый 6 ежемесячно: фиолетовый

Что я хочу сделать, это скопировать синие ячейки на всех 53 листах в зеленые ячейки с одинаковым расположением ячейки на каждом4-й лист желтого цвета на каждые 12 листов 6 ежемесячно на каждом 26-м листе.

, поэтому, если ячейка "c3" была еженедельной, с синей заливкой она будет скопирована на все 53 листа в ячейку "c3".

Answer 1

Предполагая, что у вас есть следующие цвета в следующих ячейках:

A1: синий A2: зеленый A3: желтый A4: фиолетовый

Sub CopyColorsOverSheets()

    Dim lSheetCount As Long

    'Assuming that you start with one sheet in the workbook
    'add the 52 remaining sheets
    For lSheetCount = 2 To 53
        Sheets.Add after:=Sheets(lSheetCount - 1)
    Next lSheetCount

    'Copy colors over sheets
    For lSheetCount = 2 To 53
        Sheets(1).[A1].Copy Destination:=Sheets(lSheetCount).[A1]
    Next lSheetCount

    For lSheetCount = 2 To 53 Step 4
        Sheets(1).[A2].Copy Destination:=Sheets(lSheetCount).[A1]
    Next lSheetCount

    For lSheetCount = 2 To 53 Step 12
        Sheets(1).[A3].Copy Destination:=Sheets(lSheetCount).[A1]
    Next lSheetCount

    For lSheetCount = 2 To 53 Step 26
        Sheets(1).[A4].Copy Destination:=Sheets(lSheetCount).[A1]
    Next lSheetCount

End Sub