重命名单个工作表非常简单，也是我们日常 Excel 工作中的常见操作；但若要批量重命名多个单元格名称，则会相当繁琐。本文将为您介绍一段宏代码，助您在 Excel 中快速完成多个单元格名称的批量重命名。

批量重命名单元格名称（使用宏代码）

批量重命名单元格名称（使用宏代码）

假设工作簿中包含多个已命名的单元格（如下图所示），现在我将通过添加前缀的方式对这些名称进行批量重命名。

1. 按下 Alt + F11 键，打开 Microsoft Visual Basic for Applications 窗口，然后点击插入> 模块。参见下图：

2. 将下方代码粘贴到模块脚本中，然后按 F5 即可运行该代码。

VBA：重命名单元格名称

Sub RenameCells()
Dim n As Name
    For Each n In ThisWorkbook.Names
        n.Name = "KUTOOLS_" & n.Name
    Next n
End Sub

随后，所有单元格名称均已添加指定前缀并完成重命名。参见下图：

注意：在上述代码中 n.Name = "KUTOOLS_" & n.Name，您可以根据需要将 KUTOOLS 替换为其他字符串。

提示。如果您希望快速重命名多个工作表，请尝试使用 Kutools for Excel 的批量重命名工作表功能，如下图所示。该功能完整无限制，可免费试用 60 天，请立即下载并免费试用。