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
好,删除完之后,接下来进一步筛选。我们分别按照‘搜索指数’丶‘转化率’等因素进行排序。把搜索指数低的,转化率低的词,删除掉。
至于搜索指数低和转化率低的标准是什么,这个大家根据自己行业特点自行考量。