Excel VBA：删除指定数据区域本地命名范围及编译错误修复

编译错误原因分析 #

原删除代码的核心错误有两点：

• 条件判断需使用等于运算符=，而非赋值符号:=
• nm.RefersTo返回带工作表前缀的字符串（如=Sheet1!$A$2:$A$10），直接与Range对象比较会匹配失败，需转换为Range对象再做区域判断

修正后的删除指定区域本地命名范围代码 #

以下代码会遍历选中数据区域的所有列，精准删除对应数据区域绑定的工作表级命名范围：

Sub DeleteNamedRangesInWorksheet()
    Dim rng As Range, col As Range
    Dim nm As Name
    Dim targetRange As Range
    
    Set rng = Selection.CurrentRegion
    If rng.Rows.Count = 1 Then Exit Sub ' 无数据行直接退出
    
    For Each col In rng.Columns
        Set targetRange = col.Offset(1).Resize(col.Cells.Count - 1)
        ' 遍历当前工作表的所有本地命名范围
        For Each nm In ActiveSheet.Names
            ' 通过区域交集判断是否为目标绑定范围
            If Not Intersect(nm.RefersToRange, targetRange) Is Nothing Then
                nm.Delete
            End If
        Next nm
    Next col
End Sub

优化方案：直接覆盖命名范围（无需单独删除） #

无需单独执行删除操作，可修改原创建宏，在添加命名范围前检查是否已存在同名本地范围，直接覆盖：

Sub NameRangeWithTop_Overwrite()
    Dim rng As Range, col As Range
    Dim nmName As String
    Dim existingNm As Name
    
    Set rng = Selection.CurrentRegion
    If rng.Rows.Count = 1 Then Exit Sub
    
    For Each col In rng.Columns
        nmName = Replace(col.Cells(1), " ", "_")
        ' 检查当前工作表是否已存在同名本地命名范围
        On Error Resume Next
        Set existingNm = ActiveSheet.Names(nmName)
        On Error GoTo 0
        
        If Not existingNm Is Nothing Then
            ' 存在则更新引用区域
            existingNm.RefersTo = col.Offset(1).Resize(col.Cells.Count - 1)
        Else
            ' 不存在则新建
            ActiveSheet.Names.Add Name:=nmName, _
                RefersTo:=col.Offset(1).Resize(col.Cells.Count - 1)
        End If
    Next col
End Sub

关键说明 #

• ActiveSheet.Names仅包含当前工作表的本地命名范围，不会操作全局工作簿级范围
• 使用Intersect判断区域重叠，避免因引用字符串格式差异导致的匹配失败
• 优化后的宏直接处理覆盖逻辑，操作更高效且避免重复命名

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