含AND和OR函数的VBA IF语句逻辑错误求助

你这段代码的问题出在条件判断的逻辑运算符优先级和写法上。VBA里And的运算优先级高于Or，而且你写的Or "2"是错误写法——VBA会把非空字符串"2"直接判定为True，导致第一个条件永远成立。

举个具体场景：当Q78是"2"、Q87是"2"时，第一个条件的实际执行逻辑是：

(Range("Q78") = "1" And Range("Q87") = "1") Or "2"

• Range("Q78") = "1"为False，和Range("Q87") = "1"（同样是False）做And运算，结果是False
• 再和"2"做Or运算，由于非空字符串在VBA中等价于True，最终False Or True结果为True，所以会执行第一个分支

方案1：补全完整判断条件 #

给每个Or的两边都写完整的比较表达式，同时用括号明确运算顺序：

If Range("Q78") = "1" And (Range("Q87") = "1" Or Range("Q87") = "2") Then
    ' 执行第一个操作
ElseIf Range("Q78") = "2" And (Range("Q87") = "1" Or Range("Q87") = "2") Then
    ' 执行第二个操作
End If

方案2：用Like简化判断 #

如果Q87的值只有"1"和"2"两种可能，用Like运算符可以简化代码：

If Range("Q78") = "1" And Range("Q87") Like "[12]" Then
    ' 执行第一个操作
ElseIf Range("Q78") = "2" And Range("Q87") Like "[12]" Then
    ' 执行第二个操作
End If

方案3：用Select Case提升可读性 #

如果后续可能扩展更多条件，Select Case的逻辑会更清晰：

Select Case Range("Q78").Value
    Case "1"
        If Range("Q87").Value Like "[12]" Then
            ' 执行第一个操作
        End If
    Case "2"
        If Range("Q87").Value Like "[12]" Then
            ' 执行第二个操作
        End If
End Select

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