excel中删除所有包含"关键字"的行的宏关键词为多个

2025-06-22 14:26:32

推荐回答（1个）

回答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

excel中删除所有包含"关键字"的行的宏 关键词为多个

excel中删除所有包含"关键字"的行的宏关键词为多个