有个工作表,有N行N列,B列是领料部门,C列是领料用途,E列是发料仓库,凡是B列有“研发部”、“技术部”,则整行删除;
凡是C列有“检测”、“修理”、“生产”,则整行删除;凡是E列有“基建仓库”、“成品仓库”,则整行删除。
- Sub Delrows()
- Dim Arr, k&
- Arr = [A1].CurrentRegion
- Application.ScreenUpdating = False
- For k = UBound(Arr) To 1 Step -1
- If InStr(Arr(k, 2), "研发部") + InStr(Arr(k, 2), "技术部") + _
- InStr(Arr(k, 3), "检测") + InStr(Arr(k, 3), "修理") + InStr(Arr(k, 3), "生产") + _
- InStr(Arr(k, 5), "基建仓库") + InStr(Arr(k, 5), "成品仓库") Then
- Rows(k).Delete
- End If
- Next
- Application.ScreenUpdating = True
- End Sub