Excel中VBA编程学习笔记(十二)--自动筛选

Range.AutoFIlter方法可以进行自动筛选,语法结构如下:

Range.AutoFilter(Field,Criteria1Operator,Criteria2,VIsibleDropDown);

参数说明:

Field可选,筛按33选的字段的整型偏移量,;例如筛选A列的字段则取值1,筛选D列的字段则取值4;

Criteria1,可选,字符串类型。筛选条件可以使用“=”,“<”,“>”,“<>”等运算符;

Operator,可选,指定筛选类型。设置为xlAutoFileterOpearator枚举中的常量之一,如下表所示:

名称

说明

xlAnd

条件1和条件2的逻辑与

xlBottom10Items

显示最低值项(条件1中指定的项数)

xlBottom10Percent

显示最低值项(条件1中指定的百分数)

xlFilterCellColor

显示单元格颜色

xlFilterDynamic

动态筛选

xlFilterFontColor

字体颜色

xlFilterIcon

筛选图标

xlFIlterValues

筛选值

xlOr

条件1与条件2的逻辑或

xlTop10Items

显示最高值项(条件1中指定的项数)

xlTop10Percent

显示最高值项(条件1中指定的百分数)

Critera2,可选,第二个筛选条件,与Criteria1和Operator一起组成复合筛选条件;

VIsibleDropDown,可选,如果设置为true,则显示筛选字段的自动筛下拉箭头。

 

下表为例1到例5使用的数据

省份

年份

产量

湖北

2006

20000

广州

2012

12000

广东

2011

23000

山西

2006

8000

江西

2009

7900

湖南

2006

3000

湖北

2013

90002

广东

2007

12090

河南

2008

2230

 

【例1】筛选省份为湖北的数据

Worksheets(1).Select

    If ActiveSheet.AutoFilterMode = False Then  '检查是否开启自动筛选

        Range("A1:B9").AutoFilter   '没有开启的话则开启自动筛选

    End If

   

    ActiveSheet.Range("A1:B9").AutoFilter field:=1, Criteria1:="湖北"

【例2】筛选省份为“湖北”且年份为2013的数据

Worksheets(1).Select

    If ActiveSheet.AutoFilterMode = False Then  '检查是否开启自动筛选

        Range("A:B").AutoFilter   '没有开启的话则开启自动筛选

    End If

   

    ActiveSheet.Range("A:B").AutoFilter field:=1, Criteria1:="湖北"

    ActiveSheet.Range("A:B").AutoFilter field:=2, Criteria1:="2013", Operator:=xlAnd

【例3】筛选省份为“湖北”或“广东”的数据

ActiveSheet.Range("A:B").AutoFilter field:=1, Criteria1:="湖北", Operator:=xlOr, Criteria2:="广东"

【例4】筛选“产量”字段高出平均值的所有记录

ActiveSheet.Range("A1:C10").AutoFilter field:=3, Criteria1:=xlfilteraboveaverage, Operator:=xlfilterdynamic

【例5】筛选“产量”字体设置为红色的记录

ActiveSheet.Range("A1:C10").AutoFilter field:=3, Criteria1:=RGB(255, 0, 0), Operator:=xlfilterfoncolor

 

下表为例6到例8使用的数据

【例6】筛选姓“郑”且姓名为两个字的记录

ActiveSheet.Range("A1:C10").AutoFilter field:=1, Criteria1:="=??", Operator:=xlAnd, Criteria2:="=郑*"

【例7】筛选不姓“郑”且姓名为两个字的记录

ActiveSheet.Range("A1:C10").AutoFilter field:=1, Criteria1:="=??", Operator:=xlAnd, Criteria2:="<>郑*"

【例8】清除筛选条件

ActiveSheet.ShowAllData

注意:ActiveSheet.ShowAllData必须在工作表开启了自动筛选且存在筛选条件时使用,否则会报错.

【例9】使用高级筛选,选出不重复的记录并拷贝到另外一张工作表

Sub test()

    Worksheets("AVIC384").Range("D:D").AdvancedFilter _

    Action:=xlFilterCopy, unique:=True, _

    copyTorange:=Worksheets("tools").Range("H1")

End Sub

你可能感兴趣的:(Excel)