Excel VBA中单元格值的小于运算符无法正常工作问题

核心问题分析 #

你遇到的问题大概率是条件表达式的语法错误导致的。VBA不支持a > 0 <= 8这类连续比较写法，这种写法会被解析为(a > 0) <= 8——布尔值True对应-1、False对应0，这两个值都满足<=8，直接导致判断逻辑完全偏离预期，出现大部分值都触发18的结果。

修正后的代码示例 #

以下是符合需求的完整代码，包含正确的条件判断和E-J列非空校验：

Sub FillAA()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取数据最后一行
    lastRow = Cells(Rows.Count, "V").End(xlUp).Row
    
    For i = 2 To lastRow ' 假设第1行是表头，从第2行开始处理
        ' 校验E-J列均非空
        If Not IsEmpty(Cells(i, "E")) And _
           Not IsEmpty(Cells(i, "F")) And _
           Not IsEmpty(Cells(i, "G")) And _
           Not IsEmpty(Cells(i, "H")) And _
           Not IsEmpty(Cells(i, "I")) And _
           Not IsEmpty(Cells(i, "J")) Then
            
            ' 正确的范围判断：V列值>0 且 <=8
            If Cells(i, "V").Value > 0 And Cells(i, "V").Value <= 8 Then
                Cells(i, "AA").Value = 18
            Else
                Cells(i, "AA").Value = "Empty"
            End If
        End If
    Next i
End Sub

关键注意点 #

• 条件判断必须完整：每一个比较都要明确写出单元格引用，不能省略，比如Cells(i, "V").Value > 0 And Cells(i, "V").Value <= 8是正确写法。
• 非空校验可优化：如果单元格可能包含空格、空文本（""），需把IsEmpty替换为Trim(Cells(i, "E").Value) <> ""来做更严谨的校验。
• 类型转换兜底：若后续遇到文本型数字，可通过CDbl(Cells(i, "V").Value)强制转换为数值后再比较，避免隐式转换出错。

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