使用高级筛选获得不重复记录

muerjun

使用高级筛选获得不重复记录
       在如图所示的数据列表中，如果要将其中不重复的记录复制到另一工作表中，则可以通过高级筛选功能实现。码:#001  Sub Filter()
#002      Sheet1.Range("A1").CurrentRegion.AdvancedFilter _
#003          Action:=xlFilterCopy, Unique:=True, _
#004          CopyToRange:=Sheet2.Range("A1")
#005  End Sub代码解析：
       Filter过程使用AdvancedFilter方法对单元格A1的当前区域筛选不重复的记录，并将筛选结果复制到工作表Sheet2中。应用于Range集合的AdvancedFilter方法语法如下：
AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)
       参数Action是必需的，可以为表格所列的 XlFilterAction常量之一。

     参数CriteriaRange指定高级筛选操作的条件区域，缺省时表示没有条件限制。
    参数CopyToRange表示指定被复制行的目标区域，仅当Action为xlFilterCopy时有效，否则忽略本参数。
    参数Unique指示是否选择不重复的记录，如果其值为True，则重复出现的记录仅保留一条；如果其值为 False（默认值），则筛选出所有符合条件的记录。

山青水秀a

还没学会,不过我会好好努力的.{:171:}