excel vba实例教程 #037：使用高级筛选获得不重复记录

《excel vba实例教程 #037：使用高级筛选获得不重复记录》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、在如图1所示的数据列表中，如果要将其中不重复的记录复制到另一工作表中，则可以通过高级筛选功能实现。 图1数据列表示例代码如下：1.SubFilter()2.  Sheet1.Range("A1").CurrentRegion.AdvancedFilter_3.      Action:=xlFilterCopy,Unique:=True,_4.      CopyToRange:=Sheet2.Range("A1")5.EndSub代码解析：Filter过程使用AdvancedFilter方法对单元格A1的当前区域筛选不重复的记录，并将筛选结果复制到工作表Sheet2中。应用于Rang

2、e集合的AdvancedFilter方法语法如下：AdvancedFilter(Action,CriteriaRange,CopyToRange,Unique)参数Action是必需的，可以为表格1所列的XlFilterAction常量之一。XlFilterAction常量值描述xlFilterCopy2将筛选结果复制到其他位置xlFilterInPlace1在原有区域显示筛选结果表格1XlFilterAction常量参数CriteriaRange指定高级筛选操作的条件区域，缺省时表示没有条件限制。参数CopyToRange表示指定被复制行的目标区域，仅当Action为xlFilter

3、Copy时有效，否则忽略本参数。参数Unique指示是否选择不重复的记录，如果其值为True，则重复出现的记录仅保留一条；如果其值为False（默认值），则筛选出所有符合条件的记录。运行FilterUnique过程，结果如图2所示。 图2    得到不重复记录结果