通常，要在Excel中重命名工作表，我们可以快速双击工作表选项卡，或右键单击工作表选项卡以选择“重命名”命令以重命名工作表。 在Excel中重命名一个或两个工作表非常方便，但是如果我们想在一个操作中重命名多个工作表，该怎么办？

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

使用便捷的工具轻松地重命名多个工作表

使用VBA代码重命名多个工作表

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

惊人的！ 在 Excel 中使用高效的选项卡，如 Chrome、Edge、Firefox 和 Safari！
每天节省50％的时间，并减少数千次鼠标单击！

我们可以使用以下命令快速重命名Excel中的工作表： 重命名 根据以下过程命令：

右键单击要重命名的工作表标签，然后选择 重命名 右键单击菜单中的命令。 或双击工作表选项卡以重命名工作表。 然后键入一个新名称，然后按 输入 重命名它的密钥，请参见屏幕截图：

有了这个 重命名 命令，一次只能重命名一个工作表，为了重命名多个工作表，请重复上述操作。

使用便捷的工具轻松地重命名多个工作表

使用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 重命名多个工作表

相关文章