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