求助使用VBA针对不同列的不同关键字眼保留行

hollowboy

如题！

例如：在G列Order judgement，关键字： urgency 、top urgency 与 I 列流程停留状态，关键字：超72小时、超急板。只要存在任意关键字的保留。否则行进行删除动作，自动判断循环。请问用VBA怎么编写。谢谢！

play9091

這樣子可以……但它並不完美，有些問題沒有解決，晚了，先睡覺再說！

1. Sub delete()
   
2. For I = 2 To [G65536].End(xlUp).Row
   
3.     GG = Range("G" & I).Value
   
4.     II = Range("I" & I).Value
   
5.     If GG = "not urgency" Or II = "不急" Or II = "超48小時" Then
   
6.         Rows(I & ":" & I).delete Shift:=xlUp
   
7.     End If
   
8. Next I
   
9. End Sub
   

复制代码

hollowboy

正在试用，确实有遗憾的地方，还有高手完善下这个VBA吗？谢谢

hollowboy

没人理这个东西吗？

hollowboy

没人理这个东西吗？

liuguansky

把循环改成倒序删除试试。STEP -1

hollowboy

版主大大，可否帮写个VB看下。谢谢

hollowboy

果然没人理！！！！！！！！！！！！！！