Question

vba执行筛选，需要筛选的值是多个单元格的值

我现在会用 Criteria1:=Range("B7")来进行 单项的筛选， 如果我要筛选的条件是 B7 B8 B13 三格的值，应该用什么代码？
array好像不行

Answer 1

说个例子：假设你要筛选的值为：1，2，3 最好放在一个单元格；

Dim x
x = "1,2,3"
ActiveSheet.Range("$B$1:$B$8").AutoFilter Field:=1, Criteria1:=Split(x, ","), Operator:=xlFilterValues

当然也你可以填到条件这里面：

Criteria1:=Array("1", "2", "3")

追问

主要我这几个条件经常会改，所以用辅助表列出来，方便改，同时不影响vba 控制的输出表。
这样放在一个单元格里的就不行了。
至于楼下那些录宏的……我真是无语，能录宏我还来问个毛线啊。

追答

那你把值放在单元格一样啥。

比如你想筛选的值为1，2，3分别放在A1,A2,A3; 当然，如果你条件很多的话，就需要字符串连接了。不过都是有办法 的。

Dim x
x =range("a1") .value& "," & range("a2") .value & "," & range("a3").value 

ActiveSheet.Range("$B$1:$B$8").AutoFilter Field:=1, Criteria1:=Split(x, ","), Operator:=xlFilterValues

Answer 2

录制一个宏，看一下代码就行了。

Answer 3

录制宏你什么都懂了。

追问

你都没看我的问题吧，这个能录？？

追答

为什么不能录？？？难道我们用的EXCEL还不同了？

追问

我倒是晕了 筛选的条件是 B7 B8 B13 三格的值 ，（值是变化的）这怎么录？？？

你倒是详细说说？

问题我是自己解决了，码代码就行了。

没心思答题就别回答。

追答

别搞得自己好像很懂一样好吗？这么基本的都不懂还来质疑别人。教你录制宏你录制完就不用管了？你就只会伸手？你就一根筋？

追问

我确实不知道，所以才问，之前多有得罪还请海涵，不知能否指教下，如何录制这段内容。