凡是某单元有特定字符的，则删除整行（VBA）

凡是C列有“检测”、“修理”、“生产”，则整行删除；凡是E列有“基建仓库”、“成品仓库”，则整行删除。

1. Sub Delrows() 
   
2.     Dim Arr, k&
   
3. 
   
4.     Arr = [A1].CurrentRegion
   
5.     Application.ScreenUpdating = False
   
6.     For k = UBound(Arr) To 1 Step -1
   
7.         If InStr(Arr(k, 2), "研发部") + InStr(Arr(k, 2), "技术部") + _
   
8.            InStr(Arr(k, 3), "检测") + InStr(Arr(k, 3), "修理") + InStr(Arr(k, 3), "生产") + _
   
9.            InStr(Arr(k, 5), "基建仓库") + InStr(Arr(k, 5), "成品仓库") Then
   
10.             Rows(k).Delete
    
11.         End If
    
12.     Next
    
13.     Application.ScreenUpdating = True
    
14. End Sub