AdvancedFilter 方法

基于给定的条件区域从数据清单中筛选或复制数据。如果初始选定区域为单个单元格，则使用单元格所在的当前区域。Variant 类型。

expression   必需。该表达式返回“应用于”列表中的对象之一。

Action  XlFilterAction 类型，必需。

CriteriaRange   Variant 类型，可选。条件区域。如果省略本参数，则没有条件限制。

CopyToRange   Variant 类型，可选。如果 Action 为 xlFilterCopy，则本参数指定被复制行的目标区域。否则忽略本参数。

Unique   Variant 类型，可选。如果为 True，则重复出现的记录仅保留一条；如果为 False，则筛选出所有符合条件的记录。默认值为 False。

示例

本示例筛选基于条件区域“Criteria”的数据库区域“Database”。

Range("Database").AdvancedFilter _
    Action:=xlFilterInPlace, _
    CriteriaRange:=Range("Criteria")