excel - 删除所有没有该值的行：D 列中的条件 1 或条件 2 或条件 3 --> Using VBA Macro for excel

Question

我是 Macro's/VBA 的新手，似乎无法弄清楚如何针对多个标准执行此操作。我正在尝试删除所有没有该值的行：在 D 列中识别失败或识别成功。我编写了以下代码，它适用于一个标准“识别失败”：

' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Sub DeleteRows()
'Action 1 --> Delete all Rows without Identify Fail in column D'
Application.ScreenUpdating = False

For i = Range("D" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Range("D" & i).Value <> "Identify Fail" Then Rows(i).Delete shift:=xlUp
Next i

Application.ScreenUpdating = True
End Sub

' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

一旦我尝试使用另一个标准添加“或”，它就不起作用：

' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Sub DeleteRows()
'Action 1 --> Delete all Rows without Identify Fail in column D'
Application.ScreenUpdating = False

For i = Range("D" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Range("D" & i).Value <> "Identify Fail" Or "Identify Success" Then   
Rows(i).Deleteshift:=xlUp
Next i

Application.ScreenUpdating = True
End Sub

' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

任何建议都将不胜感激，因为我一直在搜索这个网站并且没有找到可以解决问题的有效代码。

Answer 1

更改此行

 If Range("D" & i).Value <> "Identify Fail" Or "Identify Success" Then 

至

If Range("D" & i).Value <> "Identify Fail" Or _ 
   Range("D" & i).Value <> "Identify Success" Then 

您必须完整指定条件..

然而，条件相互矛盾，所以它总是会过去的..我认为你的意思是使用

If Range("D" & i).Value <> "Identify Fail" And _ 
   Range("D" & i).Value <> "Identify Success" Then

---

在此示例中，我将“身份失败”添加到 D10