使用 Range 对象的 RemoveDuplicates 方法可以删除重复值，从而获取不重复数据列表。
Range.RemoveDuplicates 方法
语法
Range.RemoveDuplicates (Columns, Header)参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Columns | 必需 | Variant | 包含重复信息的列的索引数组。当有多列时，可以使用数组 Array(1, 2, 3) 的形式表示。 |
| Header | 可选 | XlYesNoGuess | 指定第一行是否包含标题信息。默认值为xlNo ；包含标题为 xlYes；如果希望 Excel 自动判定标题，则指定 xlGuess。 |
示例一：单列
以下示例将 A 列数据复制到 E 列并删除重复数据，得到不重复数据列表：
Sub RemoveDuplicates()
' 复制A列数据到E列
Range("A:A").Copy Range("E1")
' E列去除重复数据
Range("E:E").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
示例二：多列
以下示例将单元格 A1 的连续区域复制到单元格 E1，再删除前 3 列的重复项得到不重复数据列表：
Sub RemoveDuplicates()
' 将单元格A1的连续区域复制到单元格E1
Range("A1").CurrentRegion.Copy Range("E1")
' 删除前 3 列的重复项
Range("E1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
End Sub