在多个工作表上复制单元格

Question

我有一个年度计划表，包含53个工作表。我用每周任务、每月任务、3个月任务和6个月任务填充工作表1。然后填充单元格:每周:蓝色每月:绿色3每月:黄色6每月:紫色

我想要做的是将所有53个工作表上的蓝色单元格复制到相同的单元格位置上，绿色单元格复制到每4个黄色工作表上，每12个工作表6个月复制到每个26个工作表上。

因此，如果单元格"c3“是每周的，用蓝色填充，它将被复制到单元格"c3”中的所有53个工作表中。

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