VBA Excel：在工作簿中添加包含模板的工作表

Question

快速提问：

我的工作簿中有一张工作表TEMPLATE。我希望使用TEMPLATE作为模板在该工作簿中添加一些类似的工作表。

如何在VBA Excel中执行此操作？

Answer 1

对于另外5个TEMPLATES，你需要在循环中复制5次：

Dim i as byte
for i=1 to 5
    Sheets("TEMPLATE").Copy after:=sheets("TEMPLATE")
Next i

Answer 2

以下是制作13份副本的示例：

Sub qwerty()
    For i = 1 To 13
        Sheets("TEMPLATE").Copy before:=Sheets(1)
    Next i
End Sub

根据您的需要进行修改。

Answer 3

只是在这里注册，以防万一有人偶然发现这个答案，如果你不想复制整张表，你也可以用范围来做，例如你的＆＃34;模板＆＃ 34;只是另一张表的范围

ThisWorkbook.Sheets("Master").Range("A2:L65536").Copy Destination:=ThisWorkbook.Sheets.Add(, Sheets("Data")).Range("A1")

这里重要的是：

目的地需要一个范围

Sheet.add返回一个工作表对象。

所以不是将sheetX.range作为Destination参数传递，而是传递CreateNewSheetFunction.Range

可能不是代码可重复性的一个很好的例子，但它仍然是一个选项