Question

我曾尝试使用vba自动过滤3个标准，但它没有读取给定的两个值。下面是使用它的代码，只需读取＆＃34; MY18＆＃34;而不是＆＃34;我的18岁和＃34;

Sub Macro2()
'
' Macro2 Macro
'

'
    Selection.AutoFilter
    ActiveWindow.SmallScroll ToRight:=7
    ActiveSheet.Range("$A$1:$M$138").AutoFilter Field:=9, Criteria1:="FY17"
    ActiveSheet.Range("$A$1:$M$138").AutoFilter Field:=2, Criteria1:=Array("=*MY 18*", "=*MY18*") _
        , Operator:=xlAnd, Criteria2:="<>*discussion*"



End Sub

Answer 1

在下面一行

Operator:=xlAnd

将Operator:=xlFilterValues替换为ActiveSheet.Range("$A$1:$M$138").AutoFilter Field:=2, Criteria1:=Array("=*MY 18*", "=*MY18*", "<>*discussion*")

编辑：

users

Answer 2

使用以下代码对我有用：

ActiveSheet.Range（“ A1：AJ50”）。AutoFilter字段：= 7，标准1：= Array（“ ABC”，“ DEF”，“ GHI”），运算符：= xlFilterValues < / p>

我知道为时已晚，但对其他人可能有用。

自动过滤器有3个标准

2 个答案: