在 Excel 中重新命名工作表的簡單方法

在 Microsoft Excel 中，重新命名工作表可以幫助您更有效地組織和識別數據。本教程將引導您通過多種方法來重新命名單個工作表，或同時重新命名多個工作表，並為您提供在 Excel 中命名工作表的基本規則。

重新命名工作表 雙擊工作表標籤 右鍵點擊工作表標籤 使用鍵盤快捷鍵 重新命名多個工作表 針對特定/所有工作表的可自訂批次重新命名 用於重新命名所有工作表的 VBA 方法 在 Excel 中命名工作表的規則

視頻：在 Excel 中重新命名工作表

在 Excel 中重新命名工作表

在 Excel 中重新命名工作表有三種簡單的方法。讓我們深入探討每種方法。

通過雙擊工作表標籤重新命名工作表

1. 雙擊要重新命名的工作表標籤以啟動名稱編輯模式。
2. 輸入所需的工作表名稱並按下 Enter。

通過右鍵點擊工作表標籤重新命名工作表

1. 右鍵點擊要重新命名的工作表標籤。
2. 從出現的下拉菜單中選擇「重新命名」以啟動名稱編輯模式。
3. 輸入新名稱並按下 Enter。
4. 

使用鍵盤快捷鍵重新命名工作表

1. 選擇要重新命名的工作表標籤。
2. 依序按下 Alt + H + O + R 以啟動名稱編輯模式。
3. 輸入新名稱並按下 Enter。

在 Excel 中重新命名多個工作表

在以下部分中，我們將討論兩種有效的方法來重新命名多個選定的工作表，或者一次重新命名工作簿中的所有工作表。無論您是尋找可自訂的重新命名方法還是簡單的解決方案，我們都能滿足您的需求。

使用多功能工具批量重新命名特定/所有工作表

借助 Kutools for Excel 的「重命名工作表」功能，同時重新命名當前工作簿中的多個工作表變得輕而易舉。您可以選擇要重新命名的工作表，並添加前綴/後綴或完全替換原始名稱。對於這些修改，您可以利用輸入值、指定區域中的值或每個選定工作表中特定單元格的值。

安裝 Kutools for Excel 後，導航至「Kutools Plus」選項卡，然後選擇「工作表 > 重命名工作表」。在出現的對話框中，按照以下步驟操作：

1. 選擇要重新命名的工作表。
2. 選擇所需的重新命名選項。
3. 選擇名稱來源。如果選擇「手動輸入」選項，則應在輸入框中輸入值。
4. 

結果

根據您選擇的重新命名選項，所選工作表會立即被重新命名。

使用 VBA 重新命名所有工作表（複雜）

在本節中，我們將介紹兩個 VBA 程式碼，分別用於為所有工作表名稱添加前綴/後綴，或根據每個工作表中特定單元格的值重新命名所有工作表。

步驟 1：創建新模組

1. 按下 Alt + F11 打開 Visual Basic for Applications (VBA) 編輯器。
2. 點擊「插入 > 模組」以創建新模組。
3. 

步驟 2：將 VBA 程式碼複製到模組窗口

根據需要複製以下任一 VBA 程式碼並將其粘貼到打開的模組窗口中。

• VBA 程式碼 1：為所有工作表名稱添加前綴/後綴

• Sub renameSheetsWithPrefixSuffix()
  'Update by ExtendOffice
      Dim xWs As Worksheet
      Dim xPrefix As String
      Dim xSuffix As String
      xPrefix = "MyPre_" 'Replace "MyPre_" with your desired prefix.
      xSuffix = "_MySuf" 'Replace "_MySuf" with your desired suffix.
      On Error Resume Next
      For Each xWs In Worksheets
          xWs.Name = xPrefix & xWs.Name & xSuffix 'This snippet adds both prefix and suffix to sheet names. Adjust as needed.
      Next xWs
  End Sub

• 注意：

  • 在此程式碼中，要為所有工作表名稱添加前綴和後綴，您應該分別將第 6 行和第 7 行的 "MyPre_" 和 "_MySuf" 替換為所需的前綴和後綴。
  • 僅添加前綴時，將第 10 行程式碼修改為 xWs.Name = xPrefix & xWs.Name。
  • 僅添加後綴時，將第 10 行程式碼修改為 xWs.Name = xWs.Name & xSuffix。
• VBA 程式碼 2：根據每個工作表中指定單元格的值重新命名所有工作表

• Sub renameSheetsBasedOnCellValue()
  'Update by ExtendOffice
      Dim xWs As Worksheet
      Dim xRgAddress As String
      xRgAddress = "A1" 'Replace "A1" with your target cell address.
      On Error Resume Next
      For Each xWs In Worksheets
          xWs.Name = xWs.Range(xRgAddress).Value
      Next xWs
  End Sub

• 注意：在此 VBA 程式碼中，記住要將第 5 行的 "A1" 更改為包含每個工作表新名稱的實際單元格地址。此外，確保每個工作表上的指定單元格（在本例中為 A1）包含值。否則，運行此 VBA 程式碼將導致運行時錯誤 '1004'。

步驟 3：運行 VBA 程式碼

在 模組 窗口中，按下 F5 或點擊 按鈕以執行粘貼的程式碼。

結果

• VBA 程式碼 1 的結果：「Pre_」和「_Suf」分別作為前綴和後綴添加到所有工作表名稱中。
• 
• VBA 程式碼 2 的結果：所有工作表都根據每個工作表中 A1 單元格的值重新命名，分別為「Test1」、「Test2」和「Test3」。
• 

在 Excel 中命名工作表的規則

在重新命名工作表時，有一些規則需要遵循：

• 工作表名稱在工作簿內必須是唯一的。
• 工作表名稱不得超過 31 個字符。
• 工作表名稱不得為空白。
• 工作表名稱不得包含以下字符：\ / ? : * [ ]。
• 工作表名稱不得以撇號（'）開頭或結尾，但可以在名稱中間使用。
• 工作表名稱不得為 History，因為它被 Excel 保留作內部使用。

通過遵循本教程，您可以有效地在 Excel 中重新命名工作表，以便更好地組織和管理您的數據。我希望您覺得本教程有所幫助。如果您想探索更多 Excel 技巧，請點擊這裡訪問我們包含數千篇教程的廣泛收藏。

相關文章

• 如何在 Excel 中複製工作表並自動重新命名？
• 在 Excel 中，如何複製工作表並自動重新命名而不像平常一樣輸入名稱？本文將談論如何一次性或多個次數複製工作表，並一次性給它們特定的名稱。