如何在Excel中根據工作表值復制工作表并重命名？

通常，您可以應用 移動或復制 功能復制工作表，然后根據需要手動為副本鍵入一個新名稱。 但是，您是否曾經在復制工作表后嘗試根據單元格值重命名工作表？ 本文，我將討論如何在創建副本時根據單元格值自動重命名工作表。

復制工作表并使用VBA代碼根據單元格值重命名

多次復制工作表并根據單元格值重命名 Kutools for Excel

復制工作表并使用VBA代碼根據單元格值重命名

以下VBA代碼可以幫助您復制工作表并自動使用特定的單元格值對其重命名，請執行以下操作：

1。 激活要復制的工作表，然后按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

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

VBA代碼：復制工作表并使用單元格值重命名：

Sub Copyrenameworksheet()Updateby ExtendofficeDim ws As WorksheetSet wh = Worksheets(ActiveSheet.Name)ActiveSheet.Copy After:=Worksheets(Sheets.Count)If wh.Range("A1").Value <> "" ThenActiveSheet.Name = wh.Range("A1").ValueEnd Ifwh.ActivateEnd SubCopy

3。 然后按 F5 鍵以運行此代碼，并且當前工作表已在所有工作表之后復制到當前工作簿中，并使用您指定的單元格值重命名，請參見屏幕截圖：

備注：在上面的代碼中，單元格引用 A1 是您要為新復制的工作表重命名的單元格值，您可以根據需要進行更改。

多次復制工作表并根據單元格值重命名 Kutools for Excel

上面的代碼只能使用一個單元格值進行重命名，如果您需要多次復制工作表并根據單元格值列表對其進行重命名， Kutools for Excel“ 創建序列工作表 可能會幫助您盡快完成此任務。

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

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

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

2。 在 創建序列工作表 對話框中，進行以下操作：

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

（2.）在[ 工作表名稱基于 部分，然后單擊 按鈕以選擇您要重命名復制的工作表所基于的單元格值。

下載 Kutools for Excel 現在 ！

3。 然后點擊 Ok 按鈕，并且特定工作表已被復制多次，并使用您在新工作簿中選擇的單元格值重命名，請參見屏幕截圖：

下載并 Kutools for Excel 現在 ！

演示：多次復制工作表并根據單元格值重命名 Kutools for ExcelKutools for Excel：具有300多個方便的Excel加載項，可以在內，沒有任何限制。 立即下載并！

最佳辦公生產力工具

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

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

為什么需要 Kutools for Excel