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

lw710304 · 发表于 2013-3-13 22:58

各位大虾，

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

标题
A1
A2
A3
A4
A5

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

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

万分感谢

1578278106 · 发表于 2013-3-13 23:41

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

复制代码

1578278106 · 发表于 2013-3-13 23:45

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

1578278106 · 发表于 2013-3-13 23:50

lw710304 · 发表于 2013-3-14 00:08

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

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

lw710304 · 发表于 2013-3-14 00:28

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

随风而行lulu · 发表于 2015-4-1 20:51

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

丶沫然 · 发表于 2022-6-17 17:54

本帖最后由丶沫然于 2022-6-17 18:00 编辑

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"（如果是固定的内容，可以直接双引号）

		自动登录	找回密码
密码			免费注册