Excel VBA给命名列赋值0触发1004错误的修复方法

• 命名列名拼写不匹配：代码数组中第一个列名写为GCCP0，和实际定义的命名列GCPCC0字母顺序不一致，VBA无法找到对应命名范围，访问不存在的范围直接触发1004错误。
• 行遍历逻辑不符合需求且存在越界风险：循环起始值设为1，会覆盖每个命名列的第1个单元格（表头），和“从第2个单元格开始赋值”的需求冲突；逐行引用命名范围的行时，如果已统计的行数超过命名范围本身的有效区域，会触发范围越界错误。
• 变量未显式声明：nbr_lines、List变量未提前声明，默认作为变体类型，容易出现行数统计不准、数组值异常的问题。
• 赋值类型存在隐患：代码写入的是字符串类型的"0"，如果目标列是数值格式，可能触发格式不匹配问题。

Sub CstVal()
    Call Workbook_open
    
    Dim colName As Variant
    Dim nbr_lines As Long
    Dim targetCol As Range
    Dim colList As Variant
    
    ' 列名完全匹配实际定义的命名列
    colList = Array("GCPCC0", "GCPCC1", "GCPCC2")
    
    With gar_nv
        nbr_lines = .UsedRange.Rows.Count
        For Each colName In colList
            Set targetCol = .Range(colName)
            ' 偏移1行跳过表头（第1个单元格），截取从第2行开始的所有有效数据行，批量写入数值0
            targetCol.Offset(1, 0).Resize(nbr_lines - 1, 1).Value = 0
        Next colName
    End With
End Sub

• 修正列名拼写错误，将数组中第一个列名改为GCPCC0，和实际定义的命名列完全匹配，从根源解决找不到范围的1004错误。
• 放弃低效的逐行循环赋值逻辑，通过Offset(1, 0)跳过每个命名列的第1个单元格，再用Resize选中从第2行开始的所有有效数据行，一次性批量赋值，既符合“从第2个单元格开始设置值为0”的需求，也避免逐行引用越界的问题，执行速度提升明显。
• 补全所有变量的显式声明，避免隐式变体类型带来的不可预期错误。
• 赋值改为数值类型的0，适配常规数值列的格式要求，避免类型不匹配问题。

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