VBA循环IF语句无结果求助：单元格值对比未生效

核心错误 #

你代码里的判断条件If语句被全部注释掉了，而且当前代码语法完全错误——Else没有对应的未被注释的If。之所以运行没报错，是因为最后一行的On Error Resume Next掩盖了语法错误，导致代码完全不执行预期的判断逻辑，自然出不来结果。

修正步骤 #

1. 启用正确的判断语句：取消If cel.Offset(0, -1).Value > cel.Offset(0, 9).Value Then这行的注释（推荐用这个写法，不要用ActiveCell，遍历单元格时不需要选中，效率更低）
2. 修复语法结构：确保If、Else、End If完整配对
3. 移除错误掩盖语句：删掉On Error Resume Next，它会隐藏代码里的问题，不利于排查
4. 验证偏移量：确认cel.Offset(0, -1)确实对应“最后关闭时间”列，cel.Offset(0, 9)确实对应Calc列（如果Calc列在当前单元格左侧，偏移量应该是负数，比如Offset(0, -9)）

修正后的完整代码 #

Dim cel As Range
Dim rng As Range

' 先确保你正确设置了目标棕色列的范围，示例：
Set rng = ThisWorkbook.Sheets("你的工作表名").Range("B2:B100") ' 替换成实际的棕色列范围

For Each cel In rng.Cells
    ' 判断"最后关闭时间"列（当前单元格左1列）是否大于Calc列（当前单元格右9列）
    If cel.Offset(0, -1).Value > cel.Offset(0, 9).Value Then
        cel.Value = "YES"
    Else
        cel.Value = "NO"
    End If
Next cel

额外排查点 #

• 确认rng没有被设置为空范围，或者指向了错误的单元格区域
• 检查“最后关闭时间”和Calc列的单元格是数值/日期类型，不是文本类型——如果是文本格式的数字/日期，比较逻辑会出错
• 如果是日期比较，确保单元格的日期是真实的日期值，不是文本形式的日期

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