excel 批量删除包含多个关键词的行的宏

2025-06-23 03:17:25

推荐回答（1个）

回答1：

Sub deletewords()
 arr = Array("出售", "代理", "Q币", "兼职")
 For i = 2452 To 2 Step -1
  tmp = Cells(i, "B")
  If IsError(tmp) Then
  'B列单元格错误的行的处理。
  Else
   For Each A In arr
    If InStr(tmp, A) > 0 Then
     Rows(i).Delete shift:=xlUp
     Exit For
    End If
   Next A
  End If
 Next i
End Sub

你这个错误是由于内容引起的。就是说你的B列有单元格是公式结果是错误才报错。

加了这个If语句后，遇到错误怎么处理有你自己决定，我这里就是备注了一行。