[已解决]删除符合条件的行

新会甜橙

删除总表I列√和删除J列含有"销户"或"无法联系"的在行,I列和J列是两个条件,符合其中1个条件的都删除

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-27 20:05

1. Sub 删除行()
   
2.     Dim i As Long
   
3.     Dim lLastrow As Long
   
4.     lLastrow = Cells(Rows.Count, "g").End(xlUp).Row
   
5.     Application.ScreenUpdating = False
   
6.     Application.DisplayAlerts = False
   
7. 
   
8.     For i = lLastrow To 3 Step -1
   
9.         If Cells(i, "i") Like "√" Or Cells(i, "j") Like "*销户*" Or Cells(i, "j") Like "*无法联系*" Then
   
10.             Rows(i).Delete
    
11.         End If
    
12.     Next
    
13.     Application.ScreenUpdating = True
    
14.     Application.DisplayAlerts = True
    
15. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub 删除行()
   
2.     Dim i As Long
   
3.     Dim lLastrow As Long
   
4.     lLastrow = Cells(Rows.Count, "g").End(xlUp).Row
   
5.     Application.ScreenUpdating = False
   
6.     Application.DisplayAlerts = False
   
7. 
   
8.     For i = lLastrow To 3 Step -1
   
9.         If Cells(i, "i") Like "√" Or Cells(i, "j") Like "*销户*" Or Cells(i, "j") Like "*无法联系*" Then
   
10.             Rows(i).Delete
    
11.         End If
    
12.     Next
    
13.     Application.ScreenUpdating = True
    
14.     Application.DisplayAlerts = True
    
15. End Sub

复制代码

新会甜橙

hwc2ycy 发表于 2013-3-27 20:05

谢谢老师帮助.测试成功