如何在 Excel 中根據清單中的儲存格值來重新命名工作表？

步驟 1： 在您要根據儲存格值動態命名的工作表標籤上按一下滑鼠右鍵，然後從右鍵選單中選取檢視程式碼。

步驟 2： 在開啟的 Microsoft Visual Basic for Applications 視窗中，將下列 VBA 程式碼貼上至模組視窗。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

提示：此 VBA 會根據儲存格 A1 的值動態重新命名工作表，您可依需求將「A1」替換為其他儲存格。

步驟 3： 儲存 VBA 程式碼，並關閉 Microsoft Visual Basic for Applications 視窗。

接著，您會發現工作表名稱已根據指定儲存格的內容自動更新。

1. 按一下 KUTOOLS PLUS > 工作表 > 重命名工作表。請參閱下方截圖：
   
2. 在開啟的批量重命名工作表對話方塊中，請依下列步驟操作：
   1. 在工作表清單中，勾選您想要重新命名的工作表。
   2. 在重命名方式區段中，勾選替換原表名選項。
   3. 在文件名來源區段中，請勾選對應工作表中的單元格選項，並指定要用來重新命名對應工作表的儲存格內容。
   4. 點擊確定按鈕。

現在，所有勾選的工作表皆已根據各自工作表中指定儲存格的值完成重新命名。請參閱以下截圖：

1. 點擊 KUTOOLS PLUS＞ 工作表＞ 重命名工作表。
   
2. 在開啟的批量重命名工作表對話方塊中，請依下列方式設定：
   1. 在工作表清單中，選取您要重新命名的工作表。
   2. 在重命名方式區段中，勾選替換原表名選項。
   3. 在文件名來源區段中，勾選來自選區選項，然後點擊按鈕，即可開啟第二個批量重命名工作表對話方塊（見右側截圖）。接著，選取您要用來重新命名的儲存格清單，再按下確定按鈕，輕鬆完成設定！
   4. 點擊確定按鈕，立即套用重新命名！

接著，您會發現所有勾選的工作表名稱皆已自動替換為指定清單中的儲存格值。請參閱下方截圖：

示範：在 Excel 中根據儲存格值（來自清單）命名工作表

相關文章：

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行   ｜  產生程式碼｜  建立自訂公式  ｜  分析資料並產生圖表｜  呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值   ｜  刪除空白行   ｜  合併列或儲存格而不遺失資料   ｜  不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup  ｜  多重數值 VLookup  ｜   跨多個工作表 VLookup   ｜   模糊查找……
	高級下拉列表：快速建立下拉式清單   ｜  相依式下拉式清單   ｜  多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦   ｜  設計視圖   ｜增強編輯欄   ｜ 工作簿與工作表管理員   ｜  資源庫（自動文字）｜  日期提取   ｜  合併工作表  ｜  加密／解密儲存格   ｜ 依清單傳送電子郵件   ｜  超級篩選   ｜   特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜   50+ 圖表 類型（甘特圖，……）｜   40+ 實用公式（基於生日計算年齡，……）｜   19 插入工具（插入二維碼，從路徑插入圖片，……）｜   12 轉換工具（金額轉大寫，匯率轉換，……）｜   7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多

在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言！

運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……

Kutools for Excel 詳細資訊……免費下載……

---

Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！

• 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
• 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
• 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！

Office Tab 詳細資訊……免費下載……

---

所有 Kutools 增益集，一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！

• 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
• 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
• 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
• 30 天完整功能試用— 無需註冊，無需信用卡
• 超值之選— 比單獨購買各增益集更省費用

Kutools for Office 詳細資訊……免費下載……