VBA遍历A-L列2-10行单元格区域运行报错如何解决

• 语法错误1：Range对象调用错误
  VBA中Range()不支持直接传入两个数字作为行列索引定位单个单元格，你需要使用Cells(行号, 列号)来完成按行列序号的单元格引用。你代码中i是行号、x是列号，所以要写为Cells(i, x)，不要颠倒行列顺序。
• 逻辑错误2：错误值直接比对触发类型异常
  #REF!属于公式错误值，是特殊的错误类型而非普通字符串，直接和"#REF!"字符串比对会触发类型不匹配报错，需要先用IsError()判断单元格是否为错误值，再匹配对应错误类型。

修复后的循环代码 #

For x = 1 To 12
    For i = 2 To 10
        If IsError(Cells(i, x).Value) Then
            If Cells(i, x).Value = CVErr(xlErrRef) Then
                Cells(i, x).Value = "0"
            End If
        End If
    Next
Next

更高效的替代方案 #

不需要循环，直接对目标区域执行批量替换即可，执行效率远高于逐单元格遍历：

Range("A2:L10").Replace What:="#REF!", Replacement:="0", LookAt:=xlWhole

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