在 Microsoft Excel 中，重命名工作表可以帮助您更有效地组织和识别数据。 本教程将指导您通过各种方法重命名单个工作表或同时重命名多个工作表，并为您提供在 Excel 中命名工作表的基本规则。

重命名工作表 双击工作表选项卡 右键单击工作表选项卡 使用键盘快捷键 重命名多个工作表 特定/所有工作表的可自定义批量重命名 VBA重命名所有工作表的方法 Excel 中工作表的命名规则

视频：在 Excel 中重命名工作表

在 Excel 中重命名工作表

在 Excel 中重命名工作表有三种简单的方法。 让我们深入研究其中的每一种方法。

通过双击工作表选项卡重命名工作表

1. 双击要重命名的工作表选项卡以激活名称编辑模式。
2. 输入所需的工作表名称，然后按 输入.
3. 

通过右键单击工作表选项卡重命名工作表

1. 右键单击要重命名的工作表的选项卡。
2. 从出现的下拉菜单中，选择 重命名 激活名称编辑模式。
3. 输入您的新名称并按 输入.
4. 

使用键盘快捷键重命名工作表

1. 选择要重命名的工作表选项卡。
2. 媒体 Alt + H + O + R 按顺序激活名称编辑模式。
3. 输入您的新名称并按 输入.

在 Excel 中重命名多个工作表

在下一节中，我们将讨论两种有效的方法来一次重命名多个选定的工作表或工作簿中的所有工作表。 无论您是在寻找可定制的重命名方法还是简单的解决方案，我们都能满足您的需求。

使用多功能工具批量重命名特定/所有工作表

Kutools for Excel's 重命名工作表 功能，同时重命名活动工作簿中的多个工作表变得轻而易举。 您可以选择要重命名的工作表，并添加前缀/后缀或完全替换原始名称。 对于这些修改，您可以使用输入值、指定范围中的值或每个选定工作表中特定单元格中的值。

后 安装 Kutools for Excel，导航到 Kutools 加 选项卡，然后选择 工作表 > 重命名工作表。 在弹出的对话框中进行如下操作：

1. 选择您要重命名的工作表。
2. 选择所需的重命名选项。
3. 选择名称来源。 如果你选择了 从输入框 选项，您应该在输入框中输入一个值。
4. 

结果

所选工作表将根据您选择的重命名选项立即重命名。

使用 VBA 重命名所有工作表（复杂）

在本节中，我们将介绍两个 VBA 代码，用于向所有工作表名称添加前缀/后缀，或根据每个工作表中特定单元格的值重命名所有工作表。

第 1 步：创建一个新模块

1. 媒体 Alt + F11键 打开 Visual Basic应用程序（VBA） 编辑。
2. 点击 插页 > 模块 创建一个新模块。
3. 

步骤 2：将 VBA 代码复制到模块窗口

复制以下任一 VBA 代码并将其粘贴到打开的 模块 窗口根据您的需要。

• VBA代码1：为所有工作表名称添加前缀/后缀

• Sub renameSheetsWithPrefixSuffix()
  'Update by ExtendOffice
      Dim xWs As Worksheet
      Dim xPrefix As String
      Dim xSuffix As String
      xPrefix = "MyPre_" 'Replace "MyPre_" with your desired prefix.
      xSuffix = "_MySuf" 'Replace "_MySuf" with your desired suffix.
      On Error Resume Next
      For Each xWs In Worksheets
          xWs.Name = xPrefix & xWs.Name & xSuffix 'This snippet adds both prefix and suffix to sheet names. Adjust as needed.
      Next xWs
  End Sub

• 请注意：

  • 在此代码中，要向所有工作表名称添加前缀和后缀，您应该替换 “我的预_” 和 “_MySuf” 在第 6 行和第 7 行分别添加您想要的前缀和后缀。
  • 如果只添加前缀，请将第10行代码修改为 xWs.Name = xPrefix & xWs.Name.
  • 如果只添加后缀，则将第10行代码修改为 xWs.Name = xWs.Name & xSuffix.
• VBA代码2：根据每个工作表中指定单元格的值重命名所有工作表

• Sub renameSheetsBasedOnCellValue()
  'Update by ExtendOffice
      Dim xWs As Worksheet
      Dim xRgAddress As String
      xRgAddress = "A1" 'Replace "A1" with your target cell address.
      On Error Resume Next
      For Each xWs In Worksheets
          xWs.Name = xWs.Range(xRgAddress).Value
      Next xWs
  End Sub

• 请注意： 在此VBA代码中，记得更改 “ A1” 将第 5 行添加到包含每个工作表的新名称的实际单元格地址。 另外，请确保每张工作表上的指定单元格（在本例中为 A1）包含一个值。 否则，运行此 VBA 代码将导致运行时错误“1004”。

第 3 步：运行 VBA 代码

在 模块 窗口，按 F5 或点击 按钮来执行粘贴的代码。

结果

• VBA代码1的结果： “Pre_”和“_Suf”分别作为前缀和后缀添加到所有工作表名称中。
• 
• VBA代码2的结果： 所有工作表均根据每个工作表的单元格 A1 中的值重命名，分别为“Test1”、“Test2”和“Test3”。
• 

Excel 中工作表的命名规则

重命名工作表时，您需要遵循一些规则：

• 工作表名称在工作簿中必须是唯一的。
• 工作表名称不得超过 31 个字符。
• 工作表名称不能为空。
• 工作表名称不得包含以下字符： \/？ : * [ ].
• 工作表名称不得以撇号开头或结尾 (')，尽管它可以用在名称中间的某个位置。
• 工作表名称不能是 创办缘起 因为它保留供 Excel 内部使用。

通过遵循本教程，您可以有效地重命名 Excel 中的工作表，以更好地组织和管理数据。 我希望本教程对您有所帮助。 如果您想探索更多 Excel 提示和技巧， 请点击这里 访问我们广泛收集的超过数千个教程。

相关文章

• 如何在Excel中复制工作表并自动重命名？
• 在Excel中，您如何复制工作表并自动重命名而无需像往常一样键入名称？ 在本文中，我将讨论如何一次或多次复制工作表并一次给它们指定特定的名称。