vba - 多次动态复制工作表并在 Excel 中使用 VBA 重命名

Question

我正在尝试根据我们使用 VBA 在 excel 中经常使用的模板动态生成自定义数量的工作表。

我创建了一个“概述”页面，我们可以在其中输入一个范围，该范围将用于命名新工作表，但随后想使用隐藏的“主”工作表来生成这些新工作表的内容。

我下面的代码当前根据范围生成正确数量的页面并复制我们的主模板页面，但没有将两者结合起来并将它们留在单独的页面中。

Sub test()
Dim MyNames As Range, MyNewSheet As Range

Set masterSheet = ThisWorkbook.Worksheets("Master")
Set MyNames = Range("A1:A6").CurrentRegion  ' load range into variable

For Each MyNewSheet In MyNames.Cells    ' loop through cell range
    masterSheet.Copy ThisWorkbook.Sheets(Sheets.Count) 'copy master template sheet
    Sheets.Add.Name = MyNewSheet.Value
Next MyNewSheet

MyNames.Worksheet.Select    ' move selection to original sheet
End Sub

如您所见，代码生成命名(空白)工作表并复制我的主工作表，默认命名为“Master()”。

Answer 1

所以我们只需要替换这一行:

Sheets.Add.Name = MyNewSheet.Value

用这条线:

ActiveSheet.Name = MyNewSheet.Value