求一个筛选的宏程序 菜鸟求助

lxh7700

各位老师：  本人有一个导出的数据，希望通过宏命令实现筛选，之前用的IF函数筛选，但是速度太慢，
希望用宏命令之后，把想要的全部显示，不要的全部自动删除
之前用的是=IF(COUNT(0/(FIND({"-4";"液晶";"塑料";"三星";"印刷";"P"},F2))),COUNT(0/(FIND({"液晶";"塑料";"三星";"印刷";"P"},F2))),2)  容易假死，速度太慢  共6000行，  现希望用宏命令 先筛选包含-4的 达到条件的保留， 其余的全部删除，再筛选包含液晶、三星，印刷，P，包含液晶、三星，印刷，P 全部删除      附件是我已经筛选了包含-4的   不好意思  
希望各位老师帮忙    弄成附件  上传给我

[ 本帖最后由 lxh7700 于 2011-4-10 19:57 编辑 ]

dsmch

基本操作筛选，定位可见单元格，复制粘贴

lxh7700

主要是嫌筛选麻烦   想快一点    2楼帮忙呀

dsmch

原帖由 lxh7700 于 2011-4-10 09:16 发表
主要是嫌筛选麻烦   想快一点    2楼帮忙呀

不是不帮忙，操作一下试试再说，特别是数据很多的时候。

lxh7700

我知道你说的意思    就是在筛选的时候  得用自定义筛选，还要选包含液晶或包含塑料   一次只能用两个   嫌不方便   如果是数据多的时候   用宏命令  不是也挺快的吗

doitbest

Sub shai()
    Range("A10001:A10007") = Application.Transpose(Array("ITEM DESC", "-4", "液晶", "塑料", "三星", "印刷", "P"))
    Range("a1:v" & [a1].CurrentRegion.Rows.Count).Select
       Selection.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
         Range("A10001:A10007"), Unique:=False
     Range("a2:v" & [a1].End(xlDown).Row).Select
    Selection.EntireRow.Delete
    End Sub

lxh7700

谢谢六楼   我先用一下   有不懂的再问你

lxh7700

用着不行呀  达不到想要的效果   6楼再看一下   我的意思是6000行数据  先筛选包含-4的  达不到条件的删除，筛选出来的结果再筛选包含液晶;塑料;三星;印刷;P   把这些符合条件的删除     请把宏程序弄在附件里   菜鸟在这谢谢了

lxh7700

我在数据中加了个控件   把你的代码弄了上去  点击后如附件所示   问题出在哪呀
求解

xiaojingru007

使用VBA调用EXCEL的工作表函数FIND应该可以
本来想帮你写出代码，不过不知道你那几个关键字到底是在哪列查找，给个思路试试吧
还没解决的话找我吧，我也是新手，可以试试，Q286604296

[ 本帖最后由 xiaojingru007 于 2011-4-10 20:08 编辑 ]