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

Question

我有一个年度计划表，其中包含 53 个工作表。 我用每周任务、每月任务、3 个每月任务和 6 个每月任务填充工作表 1。 然后我填充单元格： 每周：蓝色 每月：绿色 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