在 Excel 中重命名工作表的简单方法

在 Microsoft Excel 中，重命名工作表能帮助您更高效地组织和识别数据。本教程将指导您通过多种方法重命名单个工作表，或同时批量重命名多个工作表，并介绍 Excel 中工作表命名的基本规则。

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

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

在 Excel 中重命名工作表

在 Excel 中，有三种简单的方法可以重命名工作表，下面我们将逐一为您介绍。

通过双击工作表标签重命名工作表

1. 双击您要重命名的工作表标签，即可进入名称编辑模式。
2. 输入所需的工作表名称，然后按 Enter 键。

通过右键单击工作表标签重命名工作表

1. 右键单击您要重命名的工作表标签。
2. 从下拉菜单中选择重命名，即可激活名称编辑模式。
3. 输入您的新名称，然后按 Enter。
4. 

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

1. 选择您要重命名的工作表标签。
2. 依次按下 Alt + H + O + R，即可激活名称编辑模式。
3. 输入您的新名称，然后按下 Enter。

在 Excel 中重命名多个工作表

在以下部分，我们将介绍两种高效方法，助您一次性重命名多个选中的工作表，或批量重命名整个工作簿中的所有工作表。无论您需要灵活自定义的重命名方案，还是即刻可用的快捷操作，我们都已为您精心准备就绪。

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

借助 Kutools for Excel 的重命名工作表功能，即可轻松批量重命名当前工作簿中的多个工作表。您可选择目标工作表，灵活添加前缀或后缀，或直接替换原有名称。这些修改支持使用手动输入值、指定区域中的内容，或各选定工作表中特定单元格的值，操作高效又精准！

安装 Kutools for Excel 后，导航至 KUTOOLS PLUS 选项卡，然后依次选择工作表 > 重命名工作表。在弹出的对话框中，请按以下步骤操作：

1. 请选择您希望重命名的工作表。
2. 请选择您所需的重命名选项。
3. 选择名称来源。如果选择来自输入框选项，请在输入框中输入相应值。
4. 

结果

选中的工作表将根据您选择的重命名选项立即更新名称。

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

本节将为您介绍两段实用的 VBA 代码：一段可为所有工作表名称批量添加前缀或后缀，另一段则能根据各工作表中指定单元格的值自动重命名所有工作表。

步骤 1：创建新模块

1. 按下 Alt + F11，即可打开 Visual Basic for Applications (VBA)编辑器。
2. 单击插入 > 模块，即可创建一个新模块。
3. VBA 编辑器中的模块“ />

步骤 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

• 注意：

  • 在此代码中，若要为所有工作表名称添加前缀和后缀，请将第 6 行和第 7 行中的 "MyPre_"和 "_MySuf"分别替换为您所需的前缀和后缀。
  • 若只需添加前缀，请将第 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 代码中，请务必将第 5 行的 "A1" 替换为实际存放各工作表新名称的单元格地址。同时，请确保每张工作表中对应的单元格（本例为 A1）均包含有效内容，否则运行此 VBA 代码将触发运行时错误“1004”。

步骤 3：运行 VBA 代码

在模块窗口中，按下 F5 键或单击按钮，即可执行已粘贴的代码。

结果

• VBA 代码 1 的结果： 所有工作表名称均被添加了前缀“Pre_”和后缀“_Suf”。
• 
• VBA 代码 2 的结果： 所有工作表均已根据各自 A1 单元格的值（分别为“Test 1”、“Test 2”和“Test 3”）完成重命名。
• 

Excel 中工作表命名规则

重命名工作表时，需遵循以下几条规则：

• 工作表名称在工作簿中必须唯一。
• 工作表名称长度不得超过 31 个字符。
• 工作表名称不能为空。
• 工作表名称不得包含以下字符：\ / ? : * [ ]。
• 工作表名称不得以撇号（'）开头或结尾，但可在名称中间使用。
• 工作表名称不得为 History，因为 Excel 已将该名称保留用于内部用途。

通过本教程，您将学会在 Excel 中高效重命名工作表，轻松提升数据组织与管理效率！想掌握更多实用 Excel 技巧？请点击此处，立即访问我们收录的数千篇精选教程，助您轻松进阶！

相关文章

• 如何在 Excel 中复制工作表并自动为其重命名？
• 在 Excel 中，如何复制工作表并自动重命名，无需像往常一样手动输入名称？本文将介绍如何一次性复制一个或多个工作表，并立即为其赋予指定名称。