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 delete words()
dim wr(10) '定义一个数组有几个关键字括号里就写几
wr(0)="宝丽姿"
...........
wr(10)="欧莱雅" '给数组赋值
For i = 2 To 501
for w=0 to 10 '数组循环
If InStr(Range("B" & CStr(i)).Text, wr(w)) > 0 Then
Rows(CStr(i) & ":" & CStr(i)).Select
Selection.delete shift:=xlUp
i = i - 1
exit for
End If
next w
Next i
End Sub