关于自动筛选过滤的求助

lugenhao

学习了一下  不过这个问题建议你去VB 那块求助

ipkdbr

首先,你给示例文件,要具有代表性才可以.你都不确定你要的东西会出现在哪列,别人怎么帮你.
另外,如果你这个有例外情况, 就应该在发贴的时候说明,免得浪费大家时间.
三个,对于你的问题, 在6楼的基础上修改一下,应该可以用.

Set C = Cells.Find(what:="tekla", After:=ActiveCell, LookIn:=xlFormulas, _
          lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
          MatchCase:=False, MatchByte:=False, SearchFormat:=False)
         
If C Is Nothing Then
   MsgBox "没有找到所需数据"
   End
End If


   Columns("A:A").Select
   Selection.AutoFilter
    Selection.AutoFilter Field:=C.column, Criteria1:="tekla"
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.EntireRow.Delete

原理:
1.首先在整个工作表中,找你需要的关键字.主要目的是确定你所需要的数据在哪一列,以便后面进行筛选.
2. 判断查找结果,如果未找到,提示后退出.如果找到,则继续执行
3.筛选并删除,注:用的是6楼代码,未测试.