如何在 Excel 中自動複製工作表並重命名？

在 Excel 中，您如何能夠複製一個工作表並自動重命名它，而不用像平常一樣手動輸入名稱呢？在本文中，我將介紹如何一次性或多次複製工作表，並立即給它們指定名稱。

使用 VBA 程式碼複製工作表多次並以增量標籤名稱重命名

使用 Kutools for Excel 複製工作表多次並自訂名稱重命名

使用 VBA 程式碼複製工作表多次並以增量標籤名稱重命名

如果您需要多次複製某個工作表，並且給它們一系列的名稱，例如 KTE-1、KTE-2、KTE-3、KTE-4…，以下的 VBA 程式碼可以幫助您完成這個任務。

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，然後在模組視窗中粘貼以下程式碼。

VBA 程式碼：一次複製工作表多次並立即重命名：

Sub Create()
'Updateby Extendoffice
    Dim I As Long
    Dim xNumber As Integer
    Dim xName As String
    Dim xActiveSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xActiveSheet = ActiveSheet
    xNumber = InputBox("Enter number of times to copy the current sheet")
    For I = 1 To xNumber
        xName = ActiveSheet.Name
        xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
        ActiveSheet.Name = "KTE-" & I
    Next
    xActiveSheet.Activate
    Application.ScreenUpdating = True
End Sub

3. 然後按 F5 鍵運行程式碼，會彈出一個提示框詢問您要複製當前工作表多少份，請參見截圖：

4. 在彈出的對話框中輸入複製的數量，然後點擊 確定 按鈕，您的當前工作表將被複製 5 份並按照序列進行重命名，如下方截圖所示：

備註：在上述程式碼中，您可以根據需要更改工作表名稱文字 “KTE-”。

使用 Kutools for Excel 複製工作表多次並自訂名稱重命名

也許上面的 VBA 程式碼對您來說很難應用，這裡我要介紹一個簡單的工具——Kutools for Excel，利用它的 建立序列工作表 功能，您可以毫不費力地完成這項任務。

安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 點擊 Kutools Plus > 工作表 > 建立序列工作表，請參見截圖：

2. 在 建立序列工作表 對話框中：

(1.) 從 基於工作表 下拉列表中選擇您要複製的工作表名稱；

(2.) 然後在 建立的數量 文本框中指定您要複製的工作表數量；

(3.) 接著在 工作表名稱基於 區域下勾選 連續的數字；

(4.) 最後，在右側窗格中創建您想要的序列工作表名稱，請參見截圖：

3. 完成設置後，請點擊 確定 按鈕，特定的工作表將被多次複製並根據您創建的序列在新工作簿中重命名，請參見截圖：

立即免費下載 Kutools for Excel！

演示：使用 Kutools for Excel 複製工作表多次並自訂名稱重命名