Question

excel中批量删除包含关键字的行的宏

Sub delete words()
For i = 2 To 501
‘i表示起始行和终止行，比如第一个词条是第二行，最后一个词条是第501行
If InStr(Range("B" & CStr(i)).Text, "宝丽姿") > 0 Then
‘这里面这个B，是你的词所在的列，如果你的词不是B列，自己换个字母
Rows(CStr(i) & ":" & CStr(i)).Select
Selection.delete shift:=xlUp
i = i - 1
End If
Next i
End Sub
这样我只能删宝丽姿一个词
我想 删除几十个词 一次导入

Answer 1

Sub deletewords()
arr = Array("宝丽姿", "abc", "其他") '此处添加所有关键词
For i = 501 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 j
Next i
End Sub