使用 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 Sub3. 點擊 按鈕執行代碼，並在彈出的對話框中輸入您想要的名稱。請參見截圖：

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

注意：

在上述代碼中，A1 是您希望根據其重命名工作表的單元格內容，您可以根據需要更改它。 如果特定單元格沒有內容，則該單元格所在的工作表將不會被重命名。