如何根據 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 Application 窗口。

然後您會看到工作表名稱根據指定單元格的值動態更改了。

1. 點擊 Kutools Plus > 工作表 > 重命名工作表。請參見截圖：
   
2. 在打開的 批量重命名工作表 對話框中，請按以下步驟操作：
   1. 在 工作表 列表中，勾選要重命名的工作表。
   2. 在 重命名方式 部分，勾選 替換原表名 選項。
   3. 在 新工作表名 部分，請勾選 對應工作表中的單元格 選項，並指定要重命名對應工作表的單元格內容。
   4. 點擊 確定 按鈕。

現在所有已勾選的工作表都根據每個工作表中指定的單元格進行了重命名。請參見截圖：

1. 點擊 Kutools Plus > 工作表 > 重命名工作表。
   
2. 在打開的 批量重命名工作表 對話框中，配置如下：
   1. 在 工作表 列表中，選擇要重命名的工作表。
   2. 在 重命名方式 部分，勾選 替換原表名 選項。
   3. 在 新工作表名 部分，勾選 來自選區 選項，並點擊  按鈕以打開第二個 批量重命名工作表 對話框（請參見右側截圖）。然後，選擇要根據其值重命名的單元格列表，並點擊 確定 按鈕。
   4. 點擊 確定 按鈕應用重命名。

然後您會看到所有已勾選工作表的名稱都被替換為指定列表中的單元格值。請參見下圖：

示範：根據 Excel 中的單元格值（來自列表）命名工作表

相關文章：