在 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. 

步骤 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 的值进行了重命名，分别是“Test1”、“Test2”和“Test3”。
• 

Excel 中命名工作表的规则

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

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

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

相关文章

• 如何在 Excel 中复制工作表并自动重命名？
• 在 Excel 中，如何复制工作表并自动重命名而不像平常那样手动输入名称？本文将讨论如何一次或多次复制工作表并一次性赋予它们特定名称。