Question

我有一个年度计划员，包含53个工作表。我在表单1中填写每周任务，每月任务，3个月度任务和6个月度任务。然后我填充细胞：每周：蓝色每月：绿色每月3次：黄色每月6次：紫色

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

所以如果单元格“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

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

1 个答案: