AUTOFILTER如何实现多条件过滤

ningyong58

这是在excelhome淘的小程序
Sub hjs()
Dim S
Dim B

Set S = Sheets("原始资料").Range("a1:B31")
Set B = Sheets("彪炳")
    B.Cells.Clear

n = 10

For i = 1 To n
    S.AutoFilter Field:=1, Criteria1:=i
    Debug.Print TypeName(S)
    S.Copy B.Cells(m + 1, 1)
    m = B.[a65536].End(xlUp).Row
    Next i

    S.AutoFilter
   
End Sub

Field:=2, Criteria1:= "c"
结果为
3        c
9        c

问Criteria1:= "c"如何改能得到
1        a
3        c
7        a
9        c
也就手工操作时,自定义过滤
过滤条件为c和a, 还有更多的条件.谢谢.

xixi.rar (8.16 KB, 下载次数: 43)

2009-10-26 16:48 上传

点击文件名下载附件

ningyong58

用宏记录测试了一下.
S.AutoFilter Field:=2, Criteria1:="c", Operator:=xlOr, Criteria2:="a"

ningyong58

AutoFilter + SpecialCells的组合应用

Sub EFG()
  Dim rng As Range, rng1 As Range
  Set rng = Range("A3").CurrentRegion
  rng.Interior.ColorIndex = xlNone
  rng.AutoFilter Field:=3, Criteria1:="pp9"
  Set rng1 = rng.SpecialCells(xlCellTypeVisible)
  rng1.EntireRow.Select
  sas = rng1
  rng1.Interior.ColorIndex = 34
  With rng1
    Debug.Print rng1.Count, rng1.AddressLocal
    Debug.Print .Address(0, 0)
  End With
  rng.AutoFilter
End Sub
输出结果
  $A$1:$C$1,$A$4:$C$4,$A$11:$C$11,$A$16:$C$16
A1:C1,A4:C4,A11:C11,A16:C16

[ 本帖最后由 ningyong58 于 2009-11-3 16:37 编辑 ]