如何根據Excel中的單元格值重命名工作表？

Author Sun Last modified 2025-08-23

重命名工作表通常應用在我們的Excel工作中，但你有沒有嘗試過根據單元格值來重命名工作表呢？當然，你可以手動重命名工作表，但這裡本教程介紹了一些技巧，可以快速根據單元格值批量重命名多個工作表，從而節省你的工作時間。

根據特定單元格使用VBA重命名工作表

根據特定單元格使用「批量重命名工作表」功能重命名工作表

根據一系列單元格內容使用「批量重命名工作表」功能重命名工作表

根據特定單元格使用VBA重命名工作表

使用以下VBA代碼，你可以根據特定單元格重命名相關的工作表。

1. 選擇你想用來重命名工作表的單元格，在此情況下選擇單元格A1。參見截圖：

Select the cell to rename worksheet based on

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單元格值進行了重命名。

all the worksheets have been renamed by each relative A1 cell values

根據特定單元格使用「批量重命名工作表」功能重命名工作表

如果你有 Kutools for Excel，則不需要保存VBA代碼，你可以使用「批量重命名工作表」功能快速根據其相對單元格重命名所有工作表。

Kutools for Excel 提供超過 300 種進階功能，簡化複雜任務，提升創造力與效率。 結合 AI 能力，Kutools 能夠精準自動化任務，讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

免費安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 啟用你想重命名其工作表名稱的工作簿。

2. 點擊 Kutools Plus > 工作表 > 重命名工作表。參見截圖：

click Rename Worksheets of kutools

3. 在彈出的對話框中，勾選你要重命名的工作表（在工作表面板下），並選擇你需要的一個重命名方式，這裡我將替換工作表名稱，然後勾選 「對應工作表中的單元格」，並選擇你需要用來重命名的單元格。參見截圖：

set options in the dialog box

4. 點擊確定。現在這些工作表已經根據特定單元格內容進行了重命名。

the sheets are renamed with specific cell contents

但在某些情況下，你需要根據一系列單元格值來重命名多個工作表，如下截圖所示，在這種情況下，你可以選擇以下方法。

rename multiple worksheets based on a range of cell values with kutools

根據一系列單元格內容使用「批量重命名工作表」功能重命名工作表

使用 Kutools for Excel 的「 批量重命名工作表」功能，你還可以根據選定範圍重命名工作表。

免費安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 點擊 Kutools Plus > 工作表 > 重命名工作表。參見截圖：

click Rename Worksheets feature of kutools

2. 在「批量重命名工作表」對話框中，你需要指定以下設置：

(1) 從 工作表列表中選擇需要重命名的工作表；

(2) 勾選「來自選區」選項，並選擇你需要基於其重命名的單元格值；

(3) 指定重命名方式，你可以勾選「插入原表名之前」、「插入原表名之後」或「替換原表名」，並且可以在對話框中預覽相應的結果。

set options in the dialog box

3. 點擊確定，然後你可以看到所有你選擇的工作表都已根據指定的單元格值進行了重命名。

替換原表名

Replace original sheet name

插入原表名之前

Insert before original sheet name

插入原表名之後

Insert after original sheet name

使用「重命名工作表」工具，你還可以為工作表添加特定的前綴或後綴。點擊這裡了解更多關於「批量重命名工作表」的信息。

根據單元格值批量重命名工作表

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多