AutoFilter复数编号范围

时间:2013-11-08 19:41:49

标签: excel vba autofilter

我正在尝试过滤工作表,这是我到目前为止所拥有的:

Worksheet("Sheet1").Range("A1:O1").AutoFilter Field:=12, 
    Criteria1:=Array("<34", "<>21", "<>22"),
    Operator:=xlAnd
结果行中的

Field[12]必须为:

  • 小于 34
  • 21 22

问题在于<>22似乎覆盖了<34<>21。那么过滤器是否可以满足我的所有标准呢?

1 个答案:

答案 0 :(得分:1)

也许:

Sub Macro1()
    ActiveSheet.Range("$A$1:$A$58").AutoFilter Field:=1, Criteria1:=Array("0", _
        "1", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "2", "20", "23", "24", "25", _
        "26", "27", "28", "29", "3", "30", "31", "32", "33", "4", "5", "6", "7", "8", "9"), Operator _
        :=xlFilterValues
End Sub