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

重命名工作表通常應用在我們的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單元格值進行了重命名。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

替換原表名

插入原表名之前

插入原表名之後

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

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