用于Excel的Vba编码 - 删除与两个条件不匹配的行

Question

这是我的第一篇文章，所以我希望这是正确的论坛

我正在使用Excel 2003并具有以下代码 此代码查看“F”列并删除与条件“2220”

不匹配的所有行

这很好但我试图修改这个，所以我可以匹配“2220”和“er4cc”

任何帮助都会很棒

LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
If InStr(1, Range("F" & i).Value, "2220") = 0 Then Rows(i).Delete
Next i

Answer 1

LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
If InStr(1, Range("F" & i).Value, "2220") = 0 _ 
  Or InStr(1, Range("F" & i).Value, "er4cc") Then Rows(i).Delete
Next i

尝试一下吗？

“_”是一个换行符，只是让这行更容易阅读。

编辑 - 你说'匹配'2220“和”er4cc“'，我把它解释为'删除它是否有2220或er4cc'，如果你的意思是2220 AND er4cc那么只需用和替换或 -