如何在 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 重命名多个工作表

相关文章