在多個工作表中複製單元格

Question

我有一個年度計劃程序，包含53個工作表。 我用表格1填寫每週任務，月度任務，3個月度任務和6個月度任務。 我再填充單元格： 週刊：藍色 月：綠色 3月：黃 6月：紫色

我想要做的就是複製藍色細胞在所有53個工作表，在同一單元格位置 什麼每隔4張工作表將每個工作表的每個工作表上的綠色細胞 每12個工作表上的黃色顯示爲每月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