Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 具有3个以上条件的自动筛选_Vba_Excel - Fatal编程技术网

Vba 具有3个以上条件的自动筛选

Vba 具有3个以上条件的自动筛选,vba,excel,Vba,Excel,我正在使用以下代码自动筛选一个使用3个以上条件的列-但是,它说“range类的自动筛选方法失败” 此代码似乎正在另一个SO帖子上工作 有人能帮忙吗 谢谢 Public Sub autofilter2() Dim ws As Worksheet Dim wsOut As Worksheet Dim a As String Dim b As String Dim c As String Set ws = Worksheets("Raw Data") 'AutoFilterMode = False

我正在使用以下代码自动筛选一个使用3个以上条件的列-但是,它说“range类的自动筛选方法失败”

此代码似乎正在另一个SO帖子上工作

有人能帮忙吗

谢谢

Public Sub autofilter2()
Dim ws As Worksheet
Dim wsOut As Worksheet
Dim a As String

Dim b As String
Dim c As String

Set ws = Worksheets("Raw Data")
'AutoFilterMode = False
a = Cells(69, 6).Value
b = Cells(69, 7).Value
c = Cells(69, 8).Value


ws.Range("A:bk").autofilter field:=64, _
Criteria1:=Array(a, b, c), _
Operator:=xlFilterValues



End Sub
64超出列BK。您可以拥有的最大值为63

64超出列BK。你最多可以有63个