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

通常在 Excel 中重命名工作表時，我們可以快速雙擊工作表標籤，或右鍵單擊工作表標籤並選擇「重命名」命令來進行重命名。這樣重命名一兩個工作表非常方便，但如果我們想一次性重命名多個工作表，該怎麼辦呢？

使用「重命名」命令重命名工作表

使用便捷工具輕鬆重命名多個工作表

使用 VBA 代碼重命名多個工作表

使用「重命名」命令重命名工作表

我們可以根據以下步驟快速使用「重命名」命令在 Excel 中重命名工作表：

右鍵單擊要重命名的工作表標籤，然後從右鍵菜單中選擇「重命名」命令。或者雙擊工作表標籤以重命名工作表。然後輸入新名稱，按 Enter 鍵完成重命名，請參見截圖：

使用此「重命名」命令，一次只能重命名一個工作表。若要重命名多個工作表，請重複上述操作。

使用便捷工具輕鬆重命名多個工作表

使用 VBA 代碼重命名多個工作表

這裡我將介紹兩種用於重命名多個工作表的 VBA 代碼。

代碼 1. 一次性使用您想要的名稱重命名多個工作表的 VBA 代碼

使用以下 VBA 代碼，您可以快速為當前工作簿中的所有工作表添加相同的前綴，例如：KTE-order1、KTE-order2 和 KTE-order3…

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 重命名多個工作表

相關文章