VBA遍历工作表按首行值批量命名列报1004错误解决方法

你的代码有4个直接触发错误的问题：

• 无绑定的前置点运算符：你写的.Cells、.Names必须放在With 工作表对象的代码块内才能生效，否则VBA无法识别这个点指向的父对象，直接抛出错误。
• 循环变量被写为字符串字面量：Range("i2:i" & LastRow)里的i是引号包裹的普通字符，不是你定义的循环变量i，VBA会尝试查找名为「i列」的不存在列，直接报错。
• 变量未定义取值：你代码里的nbr_col没有赋值，循环终止值为空会直接触发运行时错误。
• 手动示例代码存在拼写笔误：你手动定义的Range对象名为GCFRRE，后续RefersTo:=后写的是GCFREE，拼写不一致，手动运行这段代码也会报错。
  除此之外，如果第一行的列名包含非法字符（空格、特殊符号、与单元格地址重名、超长），也会触发1004错误。

Sub BatchSetColNames()
    Dim ws As Worksheet
    Dim lastRow As Long, nbr_col As Long, i As Long
    Dim rng As Range, colName As String
    
    ' 绑定目标工作表
    Set ws = ThisWorkbook.Worksheets("garcat_nv")
    ' 计算A列最后一行行号，和你手动逻辑保持一致
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    ' 计算第一行总列数，不需要手动填nbr_col值
    nbr_col = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    Application.ScreenUpdating = False
    ' 遇到非法列名时跳过，不中断整体运行
    On Error Resume Next
    For i = 1 To nbr_col
        colName = Trim(ws.Cells(1, i).Value)
        ' 跳过空列名
        If Len(colName) > 0 Then
            ' 用行列索引定位数据区域，避免列字母转换问题
            Set rng = ws.Range(ws.Cells(2, i), ws.Cells(lastRow, i))
            ' 定义工作表级名称，带绝对引用固定区域，自动处理带空格的表名
            ws.Names.Add _
                Name:=colName, _
                RefersTo:="='" & ws.Name & "'!" & rng.Address
        End If
    Next i
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

• 上述代码定义的是工作表级名称，仅在garcat_nv工作表内可直接调用，如果需要定义全工作簿生效的名称，把ws.Names.Add替换为ThisWorkbook.Names.Add即可。
• 如果第一行存在重复列名，后添加的同名名称会覆盖之前的定义，建议运行前先检查第一行值的唯一性。
• 合法名称不能包含! @ # $ % ^ & * ( ) 空格等特殊字符，不能以数字开头，不能和Excel内置单元格地址（比如A1、XFD1048576这类）重名，长度不能超过255字符，不符合规则的列名会被自动跳过，运行结束后可手动核对未命名成功的列修改首行值即可。

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