根据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 作为较长文本字符串一部分的单元格值。