大家看下这个宏命令,你可以在这里输入你想删掉的词,比如我这里输入的是‘宝丽姿’,这是另外一个品牌的伞。输入之后,点一下运行,那么这张此表里所有包含‘宝丽姿’的词条都会被删掉。
同样的道理,我继续输入‘儿童’,‘男’‘雨伞’等,就会把含有跟我宝贝不相关的这些词全部删掉。这样你删一轮下来,词表可能就只剩下一两百个词了。会节约你很多时间。
现在我把这个宏命令发给大家。
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