如何根据单元格值（来自列表）在 Excel 中重命名工作表？

步骤 1： 右键单击要通过单元格值动态命名的工作表名称，并选择 查看代码 从右键菜单中。

步骤 2：在打开的 Microsoft Visual Basic for Applications 窗口中，将以下 VBA 代码粘贴到模块窗口中。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

提示：此 VBA 将根据 A1 单元格的值动态重命名工作表，您可以根据需要将“A1”更改为其他单元格。

步骤 3：保存 VBA 代码并关闭 Microsoft Visual Basic for Application 窗口。

然后您会看到工作表名称已根据指定单元格的值动态更改。

1. 点击 Kutools Plus > 工作表 > 重命名工作表。见截图：
   
2. 在打开的 批量重命名工作表 对话框中，请按如下操作：
   1. 在工作表 列表中，勾选要重命名的工作表。
   2. 在重命名选项部分，勾选替换原表名选项。
   3. 在新工作表名称部分，请勾选对应工作表中的单元格重命名工作表选项，并指定用于重命名对应工作表内容的单元格。
   4. 点击确定按钮。

现在所有选中的工作表都根据每个工作表中指定的单元格进行了重命名。见截图：

1. 点击 Kutools Plus > 工作表 > 重命名工作表.
   
2. 在打开的 批量重命名工作表 对话框中，进行如下配置：
   1. 在工作表列表中，选择要重命名的工作表。
   2. 在重命名选项 部分，勾选替换原表名选项。
   3. 在 新工作表名称 部分，勾选 来自选区 选项，并点击  按钮以打开第二个 批量重命名工作表 对话框（见右侧截图）。然后，选择要根据其值重命名的单元格列表，并点击 确定 按钮。
   4. 点击确定按钮应用重命名。

然后您会看到所有选中的工作表名称都被替换为指定列表中的单元格值。见下图：

演示：根据单元格值（来自列表）在 Excel 中命名工作表

相关文章：