Question

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

为什么出错的求高手解答，我是想删除包含多个关键词的行

比方：
A B C D
1 xxx出售xxxx 1 2
2 xxx包括xxxx 1 2
3 xxx代理xxxx 1 2
4 xxx学校xxxx 1 2
5 xxxQ币xxxx 1 2
6 xxx兼职xxx 1 2

想把含“出售”、“代理”、"Q币"、“兼职”，这些关键词的行删掉。若是EXCEL的只能2个，一个个删太苦逼了，下面要怎么修改。

Sub deletewords()
arr = Array("出售", "代理", "Q币", "兼职")
For i = 2452 To 2 Step -1
tmp = Cells(i, "B")
For Each a In arr
If InStr(tmp, A) > 0 Then
Rows(i).delete shift:=xlUp
Exit For
End If
Next A
Next i
End Sub

出错，提示这个
或者还有什么方式可以解决的！





Answer 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语句后，遇到错误怎么处理有你自己决定，我这里就是备注了一行。