VBA自动筛选同一列多个数值

lw710304

各位大虾，

我想在同一列对多个数值进行自动筛选，能帮忙编一下代码吗？

标题
A1
A2
A3
A4
A5

如我想在标题这一列，同时筛选A1、A3、A5，如何实现

另外，实际上我想保留A1、A3、A5行的数据，如果实现筛选后，可否删掉未经筛选的A2、A4行，
如果不能，我选定的筛选条件是A1、A3、A5，筛选呈现的结果是A2、A4，然后删掉A2、A4，去掉筛选后保留的也是A1、A3、A5

万分感谢

1578278106

1. Sub filter()
   
2. s1 = [a2]: s2 = [a4]: s3 = [a6]
   
3. With ActiveSheet.[a:a]
   
4.    .AutoFilter Field:=1, Criteria1:=Array(s1, _
   
5.        s2, s3), Operator:=xlFilterValues
   
6.    .SpecialCells(12).Copy Range("c1")
   
7.    .AutoFilter
   
8. End With
   
9. End Sub
   

复制代码

1578278106

s1、s2、s3 为三个筛选条件，在a列进行筛选，将筛选结果复制到c列。

1578278106

lw710304

好感谢这么快就答复，我还想问问，如果我筛选的条件是个变长的数组，也就是说每次筛选的值可能是1个或多个不等，可不可以实现呢？

标题		第一次筛选	第二次删选	第三次筛选
K1001		K1001	K1003	K1002
K1002		K1003	K1005	K1003
K1003			K1009	K1004
K1004			K1010
K1005
K1006
K1007
K1008
K1009
K1010

lw710304

另外还想请教，可不可以就在原表中删除未经筛选的行，因为想保留原表的格式，谢谢。

随风而行lulu

我也遇到了这问题，数字不能进行模糊搜索

丶沫然

sub 多条件筛选
Sheet4.Range("$A$6:$C$6").AutoFilter Field:=2, Criteria1:=Array(Sheet4.Range("b1").Value, Sheet4.Range("b2").Value), Operator:=xlFilterValues '多条件筛选
end sub



Sheet4.Range("$A$6:$C$6")为筛选的表头

AutoFilter Field:=2    （2，表示在区域A6-C6中的第二列，即ABC，B列）

Criteria1:=Array(Sheet4.Range("b1").Value, Sheet4.Range("b2").Value,"文本内容1","文本内容2"), Operator:=xlFilterValues
Sheet4.Range("b1").Value
Sheet4.Range("b2").Value（根据单元格内容筛选，对于经常换内容的话比较方便）
"文本内容1","文本内容2"（如果是固定的内容，可以直接双引号）