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

相关文章