删除重复值

使用 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