vba - 根据 2 个不同的字符串值删除行

Question

当许多其他行被删除时，有没有办法添加另一个文本值？现在在“I”行中，我需要删除任何值不是“200”或“900”的行。

Sub macro20()
Dim Rng As Range
Dim x As Long
Set Rng = Range("I1:I" & Range("I65536").End(xlUp).Row)
For x = Rng.Rows.Count To 1 Step -1
    If InStr(1, Rng.Cells(x, 1).Value, "200") = 0 Then
        Rng.Cells(x, 1).EntireRow.Delete
    End If
Next x
End Sub

这是我到目前为止所拥有的，但我不知道如何添加另一个文本值以防止该行被删除。

Answer 1

尝试，

If Rng.Cells(x, 1).Value <> 200 And Rng.Cells(x, 1).Value <> 900 Then

这适用于为真数的单元格值；不适用于可能包含 200 或 900 作为较长文本字符串的一部分的单元格值。