第1个回答 2015-06-16
利用高级筛选轻松解决,假设你数据在 a1:k1000,第一行是标题,关键字在b列(假设关键字是“表格”,在数据区域外找一空白单元格(如m2,但m1必须是空白)输入公式=countif(b2,"*表格*")回车,点前面数据区域任一单元格,数据,筛选,高级,选将结果复制其他位置,条件区域框输入m1:m2,复制到框输入n1或别的空白单元格,确定,则以n1为起点出现的结果就是你要的
第2个回答 2009-10-17
很简单的,选中第一行,数据,筛选,自动筛选
在A1下拉菜单中选择自定义
匹配选"包含", 输入"西瓜",确定
你要想删除其它的,只要复制你见到的数据,粘贴到新的工作表就可以了...
第3个回答 2009-10-17
插入一列输入[=find("西瓜",A1)]向下复制后,筛选结果为#VALUE!行删除即可。
第4个回答 2009-10-17
用如下VBA程序可一键搞定:
Sub deleteX()
For y = Range("A65536").End(xlUp).Row To 2 Step -1
If InStr(Range("A" & y).Value, "西瓜") = 0 Then
Range("A" & y).EntireRow.delete
End If
Next y
End Sub