VBA Excel 高级筛选AdvancedFilter

最近在网上找到了一些比较好的关于AdvancedFilter应用的例子，总结和分享如下：

expression.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)

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

Action XlFilterAction 类型，必需。

XlFilterAction 可为以下 XlFilterAction 常量之一。

xlFilterCopy

xlFilterInPlace

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

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

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

例子：（看附件）

Sub Macro1()

Range("A1:D12").Select

Range("A1:D12").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

"F5:I6"), CopyToRange:=Range("K1"), Unique:=False

End Sub

总结：

在条件设定中：

1. 同一行的各条件是“and”的关系

2.不同行间是“or”的关系

3. 条件列标题要和原来表格的一致

4. 在VBA条件范围时要注意，在选定多行范围时，空单元格也是一个条件，如本例，如果只选定“F5：I6”，那只有“F6”and　＂Ｇ６＂的共同条件，　但如果选“F5：I７”，而第７行为空，则在以上条件下，还要考虑　or ""的条件 (相当于全选)。

原文载于： http://blog.sina.com.cn/s/blog_4ae507470100zd54.html     作者：长风破浪