自动筛选只能有两个条件，不过可以允许多个值筛选，采用下面的方法就可以了。Worksheets("Sheet1").Range("A1").AutoFilter_Field:=7,_Criteria1:=Array("a","b","c"),Operator:=xlFilterValues...

系统支持的逻辑是有限的，对于太复杂的需求，一般的办法是增加一列，这一列通过复制的AND、OR公式实现筛选判断，结果为0、1，最后对这一列进行筛选。

可以的array里面把abcd的值用""括起来，逗号隔开参考Subss()Range("A:A").SelectSelection.AutoFilterActiveSheet.Range("$A:A").AutoFilterField:=1,Criteria1:=Array("陈寻文","赵兰兰")

方法：1.制作数据表和查询条件表，查询条件表的“*”是通配符；2.数据——筛选——高级筛选；3.按查找条件编辑高级查询对话框；4.检验查询结果。

可以用数组来实现（2007以上）：Selection.AutoFilterField:=2,Criteria1:=Array("A","B","C"),Operator:=xlFilterValues

两个条件：筛选第一列姓名为张三，李四ActiveSheet.Range("$A$1:$R$316920").AutoFilterField:=1,Criteria1:=Array("张三","李四"),Operator:=xlFilterValues筛选第二列成绩为优，良ActiveSheet.Range("$...

Dimxx="1,2,3"ActiveSheet.Range("$B$1:$B$8").AutoFilterField:=1,Criteria1:=Split(x,","),Operator:=xlFilterValues当然也你可以填到条件这里面：Criteria1:=Array("1","2",

改为Sheet1.Range("1:1").AutoFilterfield:=2,Criteria1:=Array("=*M*","<>*MM*","<>*DM*")试试呀

autofilter最多显示两个条件我记得，你这至少3个条件了；况且你用AND筛选，最后啥也不显示；感觉你应该用OR，即便如此，一个循环只能看到一或二种条件，那程序运行完毕你只能看到最后一或二种情况。感觉应该用“高级筛选”，...

Range("d1").Value=SpinButton1.ValueEndSubPrivateSubWorksheet_Change(ByValTargetAsRange)IfTarget.Column=4AndTarget.Row=1ThenActiveSheet.Range("A6:F"&10000).AutoFilterField:=3,...