VBA代码异常求助：单元格值始终显示Error，条件判断失效

嘿，我来帮你揪出这段VBA代码里的问题，其实有几个关键点导致A3永远显示"Error"：

首先先把你的代码贴出来方便分析：

Sub ejer_4() 
Cells(3, 1).Value = "hola" 
For i = 2 To 21: 
If Int(Cells(i, 3).Value) <> Int(Cells(i + 1, 3).Value) - 1 Then 
Cells(3, 1).Value = "Error" 
End If 
Next 
End Sub

核心问题1：循环边界导致的越界访问 #

你的循环范围是For i = 2 To 21，当循环执行到最后一次（i=21）时，Cells(i+1, 3)指向的是第22行第3列的单元格。如果这个单元格是空的、没有数据，或者不是数字，Int(Cells(22,3).Value)会返回0（空单元格的Int值默认是0），这时候Int(Cells(21,3).Value)肯定不等于0 - 1 = -1，条件直接成立，A3被设为"Error"。这几乎是每次都显示Error的最主要原因。

核心问题2：没有重置"hola"的逻辑 #

一旦循环中有任何一次触发了条件，A3就被改成"Error"，之后哪怕后面的所有行都符合连续递增1的要求，代码也不会把A3改回"hola"。也就是说，只要有一行不符合，结果就永远是Error，更别说最后那次越界访问几乎一定会触发条件了。

额外问题：缺乏非数字单元格的错误处理 #

如果C列某一行的内容不是数字，Int()函数会抛出运行时错误（虽然Excel可能会自动转换，但这会导致判断逻辑出错），比如文本内容转Int会直接报错。

修正后的代码 #

这里给你调整后的代码，解决了上面的所有问题：

Sub ejer_4()
    Dim isError As Boolean
    isError = False '初始化标志：默认无错误
    
    Cells(3, 1).Value = "hola"
    
    '循环终点改为20，确保i+1不会超过21行（假设你的数据到21行）
    For i = 2 To 20
        '先检查两个单元格是否都是数字，避免Int转换出错
        If IsNumeric(Cells(i, 3).Value) And IsNumeric(Cells(i + 1, 3).Value) Then
            If Int(Cells(i, 3).Value) <> Int(Cells(i + 1, 3).Value) - 1 Then
                isError = True
                Exit For '一旦发现错误，提前退出循环，提升效率
            End If
        Else
            isError = True
            Exit For '遇到非数字单元格直接判定为错误
        End If
    Next
    
    '最后根据标志设置结果
    If isError Then
        Cells(3, 1).Value = "Error"
    End If
End Sub

修正点说明： #

• 调整循环终点到20，避免访问不存在的22行单元格
• 用isError布尔变量记录是否出现错误，只有当所有行都符合要求时才保持"hola"
• 添加IsNumeric检查，防止非数字单元格导致的运行时错误
• 发现错误后立即退出循环，不用继续检查剩余行，提高代码效率

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