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

技巧1              使用高级筛选获得不重复记录
在如图 37‑1所示的数据列表中,如果要将其中不重复的记录复制到另一工作表中,则可以通过高级筛选功能实现。

图 37‑1 数据列表
示例代码如下:
#001 Sub Filter()
#002 ("A1"). _
#003 Action:=xlFilterCopy, Unique:=True, _
#004 CopyToRange:=("A1")
#005 End Sub
代码解析:
Filter过程使用AdvancedFilter方法对单元格A1的当前区域筛选不重复的记录,并将筛选结果复制到工作表Sheet2中。应用于Range集合的AdvancedFilter方法语法如下:
AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)
参数Action是必需的,可以为表格 37‑1所列的XlFilterAction常量之一。
XlFilterAction 常量值描述
xlFilterCopy 2 将筛选结果复制到其他位置
xlFilterInPlace 1 在原有区域显示筛选结果
表格 37‑1 XlFilterAction常量
参数CriteriaRange指定高级筛选操作的条件区域,缺省时表示没有条件限制。
参数CopyToRange表示指定被复制行的目标区域,仅当Action为xlFilterCopy时有效,否则忽略本参数。
参数Unique指示是否选择不重复的记录,如果其值为True,则重复出现的记录仅保留一条;如果其值为 False(默认值),则筛选出所有符合条件的记录。
运行FilterUnique过程,结果如图 37‑2所示。

图 37‑2 得到不重复记录结果
技巧2              工作表的保护与解除保护