如何在 Excel 中一次重新命名多個工作表？

一般來說，在 Excel 中要重命名工作表，您可以快速按兩下工作表分頁，或在工作表分頁上按右鍵並選擇「重新命名」指令。這種方式在重命名一兩個工作表時相當方便，但若想透過單一操作一次重命名多個工作表，該如何進行？

使用「重新命名」指令來重命名工作表

使用便利工具輕鬆批量重新命名多個工作表

使用 VBA 程式碼批量重新命名多個工作表

使用「重新命名」指令來重命名工作表

只需依照下列步驟，即可透過重新命名指令，快速在 Excel 中重命名工作表！

在要重新命名的工作表分頁上按右鍵，並從右鍵功能表中選擇重新命名指令；或直接雙擊工作表分頁即可開始重新命名。接著輸入新名稱，再按下 Enter 鍵完成操作，請參見截圖：

透過此重新命名指令，每次僅能重新命名一個工作表；若需一次重新命名多個工作表，請重複上述操作。

使用便利工具輕鬆批量重新命名多個工作表

使用 VBA 程式碼批量重新命名多個工作表

以下我將為您介紹兩段 VBA 程式碼，用於重新命名多個工作表。

程式碼 1：VBA 程式碼可一次依您指定的名稱重新命名多個工作表

使用下列 VBA 程式碼，您可以快速為當前工作簿的所有工作表加上相同的前置字元，例如：KTE-order 1、KTE-order 2 及 KTE-order 3……

1. 點選開發人員＞Visual Basic，再點選插入＞ 模組（位於 ）Microsoft Visual Basic 應用程式視窗）。

2. 請將下列程式碼複製並貼上至模組中。

VBA：透過輸入特定名稱重新命名所有工作表

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3. 點選按鈕執行程式碼，並在彈出的對話方塊中輸入您想要的名稱。請參見截圖：

4. 點選確定，所有工作表將立即重新命名完成！

2。VBA 程式碼可依據當前工作簿中各工作表的特定儲存格值重新命名多個工作表

使用下列 VBA 程式碼，系統會依據特定儲存格的內容重新命名當前工作簿的所有工作表。例如，您可以在整個活頁簿的 A1 儲存格中輸入工作表名稱，工作表便會以 A1 儲存格的值重新命名。

1. 請在每個工作表中指定一個儲存格來填入工作表名稱，並輸入對應的名稱。在此範例中，我會在每個工作表的 A1 儲存格輸入工作表名稱。

2. 點選開發人員 > Visual Basic，然後在 Microsoft Visual Basic 應用程式視窗中，點選插入 > 模組。

3. 請將下列程式碼複製並貼上到模組中。

VBA：重命名工作表依據特定儲存格內容

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4. 點選按鈕以執行程式碼，所有工作表將立即依據 A1 儲存格的內容重新命名！

示範：使用 Kutools for Excel 重新命名多個工作表

相關文章