Excel VBA：批量替换命名区域名称中的指定字符串

Got it！Excel自带的查找替换确实碰不到命名区域的名称，不过用一段简单的VBA脚本就能完美解决这个问题——既能批量替换名称里的指定字符串，又完全不会改动底层的单元格引用。下面是具体步骤：

1. 打开VBA编辑器 #

• 打开你的目标Excel工作簿，按下Alt + F11组合键快速打开VBA编辑器。
• 在左侧的「项目资源管理器」面板中，右键点击你的工作簿名称，选择插入 > 模块，新建一个空白模块。

2. 粘贴并配置VBA代码 #

把下面的代码粘贴到新建的模块窗口中，然后修改其中的查找和替换字符串参数：

Sub ReplaceNamedRangeNames()
    Dim strFind As String
    Dim strReplace As String
    Dim nm As Name
    
    ' ********** 这里修改成你需要的查找/替换内容 **********
    strFind = "Shop_ABC"       ' 要替换的目标字符串
    strReplace = "Store_XYZ"   ' 替换后的新字符串
    ' ***************************************************
    
    ' 遍历工作簿中所有命名区域
    For Each nm In ThisWorkbook.Names
        ' 检查当前命名区域名称是否包含目标字符串
        If InStr(nm.Name, strFind) > 0 Then
            ' 临时开启错误处理，避免因重名导致脚本崩溃
            On Error Resume Next
            ' 替换名称，保留原单元格引用不变
            nm.Name = Replace(nm.Name, strFind, strReplace)
            ' 恢复默认错误处理
            On Error GoTo 0
        End If
    Next nm
    
    MsgBox "命名区域名称替换完成！", vbInformation
End Sub

3. 运行脚本完成替换 #

• 确认参数修改正确后，点击VBA编辑器工具栏上的绿色「运行」按钮，或者按下F5键执行脚本。
• 脚本运行结束后会弹出提示框，告诉你替换任务完成。

关键注意事项 #

• 先备份工作簿：运行脚本前一定要保存一份工作簿副本，防止出现意外情况（比如命名冲突导致部分替换失败）。
• 处理命名冲突：如果替换后的名称已经存在，脚本会自动跳过该命名区域（不会报错中断），你可以事后手动检查并调整这些未替换的条目。
• 支持工作表级命名区域：脚本会处理工作簿内所有的命名区域，包括工作表级的（格式为工作表名!区域名），替换逻辑同样适用。

内容的提问来源于stack exchange，提问作者BobsYourUncle