凡是某单元有特定字符的,则删除整行 (VBA )

有个工作表,有N行N列,B列是领料部门,C列是领料用途,E列是发料仓库,凡是B列有“研发部”、“技术部”,则整行删除;

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


  1. Sub Delrows() 
  2.     Dim Arr, k&

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

  • 4
    点赞
  • 32
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值