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 OR er4cc'，如果你的意思是2220 AND er4cc，那么只需将Or替换为And -