文档介绍：简单筛选
使用Range对象的AutoFilter方法，可对Range区域的数据中使用自动筛选"筛选一
个列表。该方法的语法如下：
（Field, Criterial, Operator, Criteria2, VisibleDropDown）
各参数的含义如下：
—Field :相对于作为筛选基准字段（从列表左侧开始，最左侧的字段为第一个字段）的字段的整型偏移量。
— Criteria1 :筛选条件，为一个字符串。使用 “=”查找空字段，或者使用 “ <>”找
非空字段。如果省略该参数，则搜索条件为All。如果将Operator设置为xlTop10ltems ，则Criteria1指定数据项个数（例如， “10”。
— Operator :指定筛选类型，可用常量如表 12-2所示。
表12-2筛选类型
名称
值
描述
xlA nd
1
条件1和条件2的逻辑与
xlBottom10Items
4
显示最低值项（条件 1中指定的项数）
xlBottom10Perce nt
6
显示最低值项（条件 1中指定的百分数）
xlFilterCellColor
8
单元格颜色
xlFilterD yn amic
11
动态筛选
xlFilterFo ntColor
9
字体颜色
xlFilterIc on
10
筛选图标
xlFilterValues
7
筛选值
xlOr
2
条件1和条件2的逻辑或
xlTop10ltems
3
显示最咼值项（条件 1中指定的项数）
xlTop10Perce nt
5
显示最咼值项（条件 1中指定的百分数）
Criteria2 :第二个筛选条件（一个字符串）。与 Criteria1和Operator —起组合成复合筛选条件。
VisibleDropDown :如果为True，则显示筛选字段的自动筛选下拉箭头。如果为
False，则隐藏筛选字段的自动筛选下拉箭头。默认值为 True。
高级筛选
Excel的高级筛选可用 VBA代码来实现，使用Range对象的AdvancedFilter方法即可进行高级筛选。
高级筛选必须在工作表中定义一个条件区域，通过该条件从列表中筛选或复制数据。如果初始选定区域为单个单元格，则使用单元格的当前区域。 AdvancedFilter 方法的语法格式如下：
表达式 .AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)
该方法各参数的含义如下：
— Action ：指定是否就地复制或筛选列表，可使用常量 xlFilterCopy (将筛选出的数据复制到新位置)或 xlFilterInPlace (保留数据不动)。
— CriteriaRange ：条件区域。如果省略该参数，则没有条件限制。
— CopyToRange ：如果 Action 为 xlFilterCopy ，则该参数为复制行的目标区域。否则，忽略该参数。
— Unique ：如果为 True ，则只筛选唯一记录。如果为 False ，则筛选符合条件的所有记录。默认值为 False 。
Sub 高级