如何在Excel中復制工作表并自動重命名？

在Excel中，您如何復制工作表并自動重命名而無需像往常一樣鍵入名稱？ 在本文中，我將討論如何一次或多次復制工作表并一次給它們指定特定的名稱。

多次復制工作表，并使用VBA代碼使用增量選項卡名稱重命名它們

多次復制工作表并使用自定義名稱重命名它們 Kutools for Excel

多次復制工作表，并使用VBA代碼使用增量選項卡名稱重命名它們

如果您需要多次復制工作表并為其指定系列名稱，例如KTE-1，KTE-2，KTE-3，KTE-4…，則以下VBA代碼可以幫您一個忙。

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。

VBA代碼：多次復制工作表并一次重命名：

Sub Create()Updateby ExtendofficeDim I As LongDim xNumber As IntegerDim xName As StringDim xActiveSheet As WorksheetOn Error Resume NextApplication.ScreenUpdating = FalseSet xActiveSheet = ActiveSheetxNumber = InputBox("Enter number of times to copy the current sheet")For I = 1 To xNumberxName = ActiveSheet.NamexActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)ActiveSheet.Name = "KTE-" & INextxActiveSheet.ActivateApplication.ScreenUpdating = TrueEnd Sub

3。 然后按 F5 鍵以運行此代碼，并出現一個提示框，提示您要復制當前工作表的副本數，請參見屏幕截圖：

4。 在彈出的對話框中輸入份數，然后單擊 OK 按鈕，您當前的工作表已重復了5個副本，并使用序列名稱重命名，如下所示的屏幕截圖：

備注：在上面的代碼中，您可以更改工作表名稱文本“KTE-”到您的需要。

多次復制工作表并使用自定義名稱重命名它們 Kutools for Excel

也許上面的VBA代碼對您來說很難應用，在這里，我將介紹一個簡單的工具- Kutools for Excel，其 創建序列工作表 實用程序，您可以毫不費力地完成此任務。

Kutools for Excel : 帶有300多個便捷的Excel加載項，可以在內.前往下載購買貝寶/ MyCommerce

安裝后 Kutools for Excel，請執行以下操作：

1。 點擊 Kutools 加 > 工作表 > 創建序列工作表，請參見屏幕截圖：

2。 在 創建序列工作表 對話框：

（1.）從列表中選擇要復制的工作表名稱。 基本工作表 下拉列表;

（2.）然后指定要復制的工作表的數量 創建數 文本框;

（3.）然后檢查 序列號 在下面 工作表名稱基于 部分;

（4.）最后，在所需的右窗格中創建序列工作表名稱，請參見屏幕截圖：

3. 完成設置后，請點擊 Ok 按鈕，并且特定工作表已被復制多次并根據您在新工作簿中創建的順序重命名，請參見屏幕截圖：

點擊 Kutools for Excel 現在 ！

演示：多次復制工作表并使用自定義名稱重命名它們 Kutools for ExcelKutools for Excel：具有300多個方便的Excel加載項，可以在內，沒有任何限制。 立即下載并！

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel