VBA在Excel中创build交替标签

我真的是新的代码，所以原谅这个简单的问题：

我目前有下面的代码，在Excel中创build新的标签，从完美的作品，但是我现在有一个'模板2'，我希望它创build模板1，然后模板2为每个项目在'input'选项卡使用范围F8“模板1”和G8“模板2”。 我可以得到它在模板1中的所有项目在F8中，然后在模板2中的G8中的所有项目，但我无法设法让它交替。

我最终想要创build模板1，然后创build模板2，将值复制并粘贴到新文件中并保存，然后在input选项卡中重复下一行。

先谢谢你

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