关于自动筛选AutoFilter的多条件以上的反选

a139111

单个条件的反选倒是可以实现，例如↓
Range("d:d").AutoFilter Field:=4, Criteria1:="<>A"   选择除了A以外的所有值

但是多条件的反选情况就不好用了。例如↓
Range("d:d").AutoFilter Field:=4, Criteria1:=Array("<>A", "<>B", "<>C")   选择除了A,B,C以外的所有值

请问大神们如何用自动筛选功能，将三个条件以上的进行反向筛选呢？

还有一个附加问题，关于用数组进行筛选判断，有没有模糊查找功能？比如↓
Criteria1:=Array("*A*", "*B*", "*C*")  这种写法的？

lipton

貌似Range.AutoFilter 方法只有两个条件,具体按F1 看一看帮助.

1. Sub RangeFilterDemo()
   
2.     Dim rng As Range
   
3.    
   
4.     Set rng = Sheet1.Range("a:d") '筛选4列,A-D列
   
5.    
   
6.     '筛选条件D列不等于A或不等于B
   
7.     rng.AutoFilter field:=4, Criteria1:="<>A", Operator:=xlOr, Criteria2:="<>B"
   
8.    
   
9. End Sub

复制代码

a139111

lipton 发表于 2018-4-24 12:19
貌似Range.AutoFilter 方法只有两个条件,具体按F1 看一看帮助.

那有没有其他的筛选能将多个条件进行反选？用for循环虽然也能达到我想要的数据，但是算法没有筛选快，特别是上万条数据的时候

lipton

方法一使用数组,方法二使用SQL

a139111

lipton 发表于 2018-4-24 13:16
方法一使用数组,方法二使用SQL

数组会使用，但是数组反选就不好用了
Range("d:d").AutoFilter Field:=4, Criteria1:=Array("A", "B", "C") , Operator:=xlFilterValues  ‘筛选所有ABC的数据

但是筛选除了ABC的数据，上述的数组写法就不好用了。我试了
Range("d:d").AutoFilter Field:=4, Criteria1:=Array("<>A", "<>B", "<>C") , Operator:=xlFilterValues

jiminyanyan

a139111 发表于 2018-4-24 13:57
数组会使用，但是数组反选就不好用了
Range("d:d").AutoFilter Field:=4, Criteria1:=Array("A", "B", " ...

用数组,循环一下......

a139111

jiminyanyan 发表于 2018-4-24 14:09
用数组,循环一下......

是，最终问题是解决了，但是我在想一个问题，为什么Criteria1:=  在这种直接筛选条件的状态下就可以用“<>”之类的符号来表示不符合数据呢，数组里为啥不可。。。数组得罪人了。。。。。。

lingbo_o0o

同样的疑问，不想用循环

只会BB不会写

请问是怎么解决的呀？？

lizhipei78

楼主想到解决的办法了吗？
其实我想通过filter筛选数组，但是filter也只是筛选一个
用循环的话，就直接用数组+字典了