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

只是在這里注冊，以防有人像我一樣迷失於此答案，如果您不想復制整張圖紙，例如，如果您的“模板”只是另一張圖紙的范圍，也可以使用一個范圍進行注冊

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

重要的是：

目的地需要范圍

Sheet.add返回一個工作表對象。

因此，我們傳遞CreateNewSheetFunction.Range而不是傳遞sheetX.range作為Destination參數。

可能不是代碼可重用性的一個很好的例子，但是仍然可以選擇