通常，要在Excel中重命名工作表，我們可以快速雙擊工作表選項卡，或右鍵單擊工作表選項卡以選擇重命名命令以重命名工作表。 在Excel中重命名一個或兩個工作表非常方便，但是如果我們想在一個操作中重命名多個工作表，該怎麼辦？

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

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

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

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

我們可以使用以下方法快速重命名Excel中的工作表： 重命名 根據以下過程命令：

右鍵單擊要重命名的工作表標籤，然後選擇 重命名 右鍵單擊菜單中的命令。 或雙擊工作表選項卡以重命名工作表。 然後鍵入一個新名稱，然後按 Enter 重命名它的密鑰，請參見屏幕截圖：

有了這個 重命名 命令，一次只能重命名一個工作表，為了重命名多個工作表，請重複上述操作。

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

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

在這裡，我將向您介紹兩個VBA代碼以重命名多個工作表。

程式碼 1. VBA 程式碼可一次以您想要的名稱重新命名多個工作表

使用以下VBA代碼，您可以快速重命名當前工作簿的所有工作表，這些工作表的工作表名稱具有相同的前綴，例如：KTE-order1，KTE-order 2和KTE-order 3…

1. 點擊 開發者 > Visual Basic中，然後點擊 插入 > 模塊 ，詳見 Microsoft Visual Basic應用程序Windows.

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. 點擊 OK。 然後，您可以看到所有工作表都已重命名。

2. VBA代碼通過活動工作簿的每個工作表中的特定單元格值重命名多個工作表

使用以下VBA代碼，它將通過使用特定單元格的內容來重命名當前工作簿的所有工作表。 例如，您可以在整個工作簿的A1單元格中鍵入工作表名稱，然後將工作表重命名為單元格值A1。

1.  請指定一個單元格以在每個工作表中包含工作表名稱，然後在其中鍵入工作表名稱。 在本示例中，我將在每個工作表的單元格A1中鍵入工作表名稱。

2.  點擊 開發者 > Visual Basic中，然後點擊 插入 > 模塊 ，詳見 Microsoft Visual Basic應用程序 Windows操作系統。

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

相關文章