VBA 多条件自动筛选，（超过两个条件）或怎么表示？

liuyan819

VBA  多条件自动筛选（超过两个条件）用或怎么表示？

lb_bn

２００７才支持的样子。

cafkyy

多条件，在自定义里面有：and，or

liuyan819

譬如说要筛选等于A或B或C或D，只要四个其中之一符合就筛选出来，请各位专家写个VBA表达式。
下面这一句只能筛选两个
Selection.AutoFilter Field:=9, Criteria1:="=02", Operator:=xlOr, _
        Criteria2:="=13"

另外下面这句：
Selection.AutoFilter Field:=9, Criteria1:=Array("13", "02", "L0", "L6")
为什么只筛选出＝L6的，其他的筛选不出？我要筛选这四个，怎么表达？

431688848

Sub tjss() '条件筛选
Application.ScreenUpdating = False
Macro1
    Dim Arr, x%
    Dim lr As Integer
On Error Resume Next
    Rows("17:65536").Delete
    With Sheet1
        Arr = .Range("A2", .[a65536].End(3)(1, 10))
    End With
    For x = 1 To UBound(Arr)
        If Arr(x, 8) = [B15] And Arr(x, 9) = [C15] And Arr(x, 2) >= [D15] And Arr(x, 2) <= [E15] Then
            [a65536].End(3)(2).Resize(1, 10) = Application.Index(Arr, x)
        End If
    Next
    With ThisWorkbook.Sheets(3)
    lr = .Range("G65536").End(xlUp).Row
         [F15] = Application.WorksheetFunction.Sum(.Range("G17:G" & lr))
        End With
  Application.ScreenUpdating = True
End Sub

给你一个，参考一下：

431688848

If Arr(x, 8) = [B15] And Arr(x, 9) = [C15] And Arr(x, 2) >= [D15] And Arr(x, 2) <= [E15] Then
            [a65536].End(3)(2).Resize(1, 10) = Application.Index(Arr, x)

cathyling2012

Selection.AutoFilter Field:=9, Criteria1:=Array("13", "02", "L0", "L6"), Operator:=xlFilterValues 这句在2007里面可以执行，你试试看。