VBA創建交替標籤在Excel

Question

我真的很新的代碼，所以藉口簡單的問題：

目前，我有下面的代碼，從完美的作品列表創建在Excel中新的選項卡，但是我現在有一個'模板2'，我希望它爲'輸入'選項卡中的每個項目創建模板1和模板2，範圍F8爲'模板1'，G8爲'模板2'。我可以讓它在模板1中完成F8中的所有項目，然後在模板2中完成G8中的所有項目，但是我無法設法讓它交替使用。

我最終想要創建模板1，然後創建模板2，將值複製並粘貼到新文件中並保存，然後在輸入選項卡中重複下一行。

預先感謝您

Sub Addnewsheets() 

Dim MyCell As Range, MyRange As Range 

Set MyRange = Sheets("Input").Range("F8") 
Set MyRange = Range(MyRange, MyRange.End(xlDown)) 

For Each MyCell In MyRange 
Sheets("Template 1").Copy after:=Sheets(Sheets.Count) 
Sheets(Sheets.Count).Name = MyCell.Value 'Renames the new worksheets 
Next MyCell 
Worksheets("End").Move after:=Worksheets(Worksheets.Count) 
End Sub 

Answer 1

如果我正確地解釋你的問題，就在Next MyCell

Sheets("Template 2").Copy after:=Sheets(Sheets.Count) 
Sheets(Sheets.Count).Name = MyCell.Offset(, 1).Value 'Renames the new worksheets based on column G 

添加這兩條線爲清楚起見，For Loop變爲：

For Each MyCell In MyRange 
    Sheets("Template 1").Copy after:=Sheets(Sheets.Count) 
    Sheets(Sheets.Count).Name = MyCell.Value 'Renames the new worksheets 
    Sheets("Template 2").Copy after:=Sheets(Sheets.Count) 
    Sheets(Sheets.Count).Name = MyCell.Offset(, 1).Value 'Renames the new worksheets based on column G 
Next MyCell