如何根據 Excel 儲存格的內容來重命名工作表？

作者Sun修改日期2024-09-11

在我們的 Excel 工作中，重新命名工作表是家常便飯，但您是否試過根據儲存格內容來重命名工作表呢？雖然手動更改當然可行，但本教學將分享實用技巧，讓您快速依儲存格值批量重命名多個工作表，大幅節省寶貴時間！

使用 VBA 根據特定儲存格重命名工作表

使用批量重命名工作表根據特定儲存格重命名工作表

使用批量重命名工作表根據儲存格範圍內容重命名工作表

使用 VBA 根據特定儲存格重命名工作表

透過以下 VBA，您可依據特定儲存格的內容，自動重新命名對應的工作表。

1. 選取您要用來重新命名工作表的儲存格（此處為 A1）。請參閱螢幕截圖：

選取要用來重新命名工作表的儲存格

2. 按下 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

3. 點擊插入> 模組，並將下方的 VBA 程式碼貼上至新開啟的模組視窗中。

VBA：依據特定儲存格的值自動重命名工作表。

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4. 按下 F5 鍵執行 VBA 程式碼，所有工作表將立即依據各自 A1 儲存格的內容重新命名！

所有工作表皆已根據各自對應的 A1 儲存格值重新命名

使用批量重命名工作表根據特定儲存格重命名工作表

若您已安裝 Kutools for Excel，無需儲存 VBA 程式碼，即可直接使用批量重命名工作表功能，快速根據對應儲存格重新命名所有工作表！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

安裝免費版 Kutools for Excel 後，請依照下列步驟操作：

1. 啟用您要重新命名工作表名稱的活頁簿。

2. 點擊 KUTOOLS PLUS > 工作表 > 重命名工作表。請參閱螢幕截圖：

按一下 Kutools 的「重新命名工作表」功能

3. 在彈出的對話方塊中，於工作表窗格勾選您要重新命名的工作表，並選擇所需的重新命名選項。此處我將取代工作表名稱，因此勾選對應工作表中的單元格，並選取要用來重新命名的儲存格。請參閱螢幕截圖：

在對話方塊中設定選項

4. 點擊確定，工作表便會立即根據指定儲存格內容重新命名！

工作表已使用特定儲存格內容重新命名

但有時您可能需要根據如下圖所示的儲存格範圍值來重新命名多個工作表，此時可選擇下列方法。

使用 Kutools 根據一系列儲存格值重新命名多個工作表

使用批量重命名工作表根據儲存格範圍內容重命名工作表

透過批量重命名工作表功能，Kutools for Excel 還能讓您根據所選區域輕鬆重新命名工作表！

安裝免費版 Kutools for Excel 後，請依照下列步驟操作：

1. 點擊 KUTOOLS PLUS > 工作表 > 重命名工作表。請參閱螢幕截圖：

按一下 Kutools 的「重新命名工作表」功能

2. 在批量重命名工作表對話方塊中，請依下列方式設定：

（1) 從工作表列表中選取您要重新命名的工作表；

（2) 勾選來自選區選項，並選取要用來重新命名的儲存格值；

（3) 指定重命名方式：可勾選插入原表名之前、插入原表名之後，或替換原表名，並在對話方塊中即時預覽對應結果！

在對話方塊中設定選項

3. 點擊確定，即可立即看到所有選取的工作表都已根據指定的儲存格值重新命名！

替換原表名

取代原始工作表名稱

插入原表名之前

插入至原始工作表名稱之前

插入原表名之後

插入至原始工作表名稱之後

透過重命名工作表工具，您還能為工作表輕鬆新增特定前置詞或後置詞！點此深入了解批量重命名工作表。

根據儲存格值批量重命名多個工作表

最佳 Office 生產力工具

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