最近在网上找到了一些比较好的关于AdvancedFilter应用的例子,总结和分享如下:
Range("A1:D12").Select
expression.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)
expression
Action
XlFilterAction 可为以下 XlFilterAction 常量之一。 |
xlFilterCopy |
xlFilterInPlace |
CriteriaRange
CopyToRange
Unique
例子:(看附件)
Sub Macro1()
End Sub
总结:
在条件设定中:
1. 同一行的各条件是“and”的关系
2.不同行间是“or”的关系
3. 条件列标题要和原来表格的一致
4. 在VBA条件范围时要注意,在选定多行范围时,空单元格也是一个条件,如本例,如果只选定“F5:I6”,那只有“F6”and "G6"的共同条件, 但如果选“F5:I7”,而第7行为空,则在以上条件下,还要考虑 or ""的条件 (相当于全选)。