VBA批量命名单元格 判断现有名称跳过空值避免1004报错

直接对无已定义名称的单元格执行cel.Name.Delete、或是用Len()读取单元格Name属性时触发1004运行时错误，核心原因是未绑定名称的单元格不存在可访问的Name对象，任何直接访问该对象的操作都会抛出运行时错误。

正确的判断逻辑不能直接读取单元格的Name属性，需要遍历工作簿内的全部已定义名称，匹配名称对应的引用范围是否为当前单元格，仅当匹配到对应名称时执行删除操作，无匹配名称时直接跳过删除步骤进入命名流程。

修正后的可直接运行代码如下：

Sub naming()
    Dim cel As Range
    Dim selectedRange As Range
    Dim to_offset As Integer
    Dim nm As Name
    Dim Answer As String
    Dim col_number As Long
    
    Set selectedRange = Application.Selection
    Answer = InputBox("Column Where Named Are?")
    ' 校验用户输入的列标识合法性，避免无效输入报错
    If Not IsColumnValid(Answer) Then
        MsgBox "输入的列标识无效，请重新运行宏"
        Exit Sub
    End If
    col_number = Range(Answer & 1).Column

    For Each cel In selectedRange.Cells
        ' 遍历所有已定义名称匹配当前单元格
        For Each nm In ThisWorkbook.Names
            ' 校验名称引用范围与当前单元格一致
            If nm.RefersToRange.Address = cel.Address Then
                nm.Delete
                Exit For ' 单个单元格仅对应一个名称，删除后直接退出循环减少消耗
            End If
        Next nm
        
        to_offset = col_number - cel.Column
        ' 跳过空值命名，避免无效名称报错
        If Trim(cel.Offset(0, to_offset).Value) <> "" Then
            cel.Name = cel.Offset(0, to_offset).Value
        End If
    Next cel
End Sub

' 辅助函数：判断输入的列标识是否合法
Function IsColumnValid(colStr As String) As Boolean
    On Error Resume Next
    IsColumnValid = Not Range(colStr & 1) Is Nothing
    On Error GoTo 0
End Function

核心改动点 #

• 替换原有的直接删除名称逻辑，改为遍历工作簿Names集合做范围匹配，从根源上避免访问不存在对象触发的1004错误
• 新增用户输入列合法性校验，拦截无效输入导致的代码中断
• 新增命名源空值判断，避免空值创建无效名称触发报错
• 匹配到目标名称后立即退出名称遍历循环，降低不必要的性能损耗

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