Vba IF函数用于检查同一范围内的多个条件

我试图根据单元格值高亮显示单元格

如果它是一个单一的值，我可以用If函数来实现。我正在尝试确定该值是“9900”还是“9100”。请告诉我这是哪里出错的？（我知道这是代码的第一行）

如果范围为（“E”和“i”）。值为“9900”或“9100”，则
范围（“A”和i&“：”和“L”和i）。选择
有选择。内饰
.Pattern=xlSolid
.PatternColorIndex=xlAutomatic
.ThemeColor=xlThemeColorAccent2
.TintAndShade=0.399975585192419
.PatternTintAndShade=0
以
使用Selection.Font
.Color=-16711681
.TintAndShade=0
以
如果结束
接下来我

如果要高亮显示，如果该值既不是9900也不是9100，则为

If Range("E" & i).Value <> "9900" And Range("E" & i).Value <> "9100" Then

---

如果要高亮显示该值，如果该值既不是9900也不是9100，则为

If Range("E" & i).Value <> "9900" And Range("E" & i).Value <> "9100" Then

这就是我发现的

If Range("E" & i).Value <> "9900" Then
  If Range("E" & i).Value <> "9100" Then
    Range("A" & i & ":" & "L" & i).Select
        With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
        End With
        With Selection.Font
        .Color = -16711681
        .TintAndShade = 0
        End With
    End If
    End If

如果范围为（“E”和“i”）。值为“9900”，则
如果范围为“E”和“i”。值为“9100”，则
范围（“A”和i&“：”和“L”和i）。选择
有选择。内饰
.Pattern=xlSolid
.PatternColorIndex=xlAutomatic
.ThemeColor=xlThemeColorAccent2
.TintAndShade=0.399975585192419
.PatternTintAndShade=0
以
使用Selection.Font
.Color=-16711681
.TintAndShade=0
以
如果结束
如果结束

这是我发现的

If Range("E" & i).Value <> "9900" Then
  If Range("E" & i).Value <> "9100" Then
    Range("A" & i & ":" & "L" & i).Select
        With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
        End With
        With Selection.Font
        .Color = -16711681
        .TintAndShade = 0
        End With
    End If
    End If

如果范围为（“E”和“i”）。值为“9900”，则
如果范围为“E”和“i”。值为“9100”，则
范围（“A”和i&“：”和“L”和i）。选择
有选择。内饰
.Pattern=xlSolid
.PatternColorIndex=xlAutomatic
.ThemeColor=xlThemeColorAccent2
.TintAndShade=0.399975585192419
.PatternTintAndShade=0
以
使用Selection.Font
.Color=-16711681
.TintAndShade=0
以
如果结束
如果结束

最后一行=应用程序。工作簿（文件名）。工作表（“ms”）。范围（“a65536”）。结束（xlUp）。行
范围（“A”和最后一行&“：”和“L”和最后一行）。选择
有选择。内饰
.Pattern=xlSolid
.PatternColorIndex=xlAutomatic
.ThemeColor=xlThemeColorAccent2
.TintAndShade=0.399975585192419
.PatternTintAndShade=0
以
使用Selection.Font
.Color=-16711681
.TintAndShade=0
以
如果范围（“E”和“i”）。值为“9900”或“9100”，则
范围（“A”和i&“：”和“L”和i）。选择
有选择。内饰
.Pattern=xlNone
.TintAndShade=0
.PatternTintAndShade=0
以
如果结束
接下来我

最后一行=应用程序。工作簿（文件名）。工作表（“ms”）。范围（“a65536”）。结束（xlUp）。行
范围（“A”和最后一行&“：”和“L”和最后一行）。选择
有选择。内饰
.Pattern=xlSolid
.PatternColorIndex=xlAutomatic
.ThemeColor=xlThemeColorAccent2
.TintAndShade=0.399975585192419
.PatternTintAndShade=0
以
使用Selection.Font
.Color=-16711681
.TintAndShade=0
以
如果范围（“E”和“i”）。值为“9900”或“9100”，则
范围（“A”和i&“：”和“L”和i）。选择
有选择。内饰
.Pattern=xlNone
.TintAndShade=0
.PatternTintAndShade=0
以
如果结束
接下来我

因为这是我们正在检查的同一个范围，它对我来说不起作用。它实际做的是突出显示所有不等于“9900”的范围。@Isu:

如果范围（“E”和i）。值“9900”和范围（“E”和i）。值“9100”则与
如果范围（“E”和i）的行为相同。值“9900”然后是如果范围（“E”和i）。值“9100”“那么它是
”9100“
和
”9900“
还是
9100
和
9900
？他们不是一回事，其实我不知道有什么区别。它们是数字格式9900和9100。因为这是我们正在检查的同一个范围，它不适合我。它实际做的是突出显示所有不等于“9900”的值。@Isu:
如果范围（“E”和i）。值“9900”和范围（“E”和i）。值“9100”则
的行为与
如果范围（“E”和i）相同。值“9900”然后如果范围（“E”和i）。值“9100”然后
@Isu-是
“9100”和
“9900”
或
9100
和
9900
？他们不是一回事，其实我不知道有什么区别。它们的编号格式为9900和9100。
last_row = Application.Workbooks(file_name).Worksheets("ms").Range("a65536").End(xlUp).Row


Range("A" & last_row & ":" & "L" & last_row).Select

 With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent2
    .TintAndShade = 0.399975585192419
    .PatternTintAndShade = 0
    End With
    With Selection.Font
    .Color = -16711681
    .TintAndShade = 0
    End With



If Range("E" & i).Value <> "9900" Or "9100" Then
Range("A" & i & ":" & "L" & i).Select
    With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With
End If
Next i