正文
VBA RemoveDuplicates方法去重复项
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
RemoveDuplicates后边必须跟参数否则不起作用
ActiveSheet.Range("G21:R36").RemoveDuplicates Columns:=12, Header:=xlYes
其中Columns参数指定要删除重复项的列，如果是1的话，那么第一列中重复项所在行都会被删除，如果是2则只有1,2两列均重复的行才会被删除，以此类推，你的区域12列，那么只有12列均重复的行会被删除。
如果想在12列中只根据某几列的重复来删除，比如，1 3 7列。那么参数写为Columns:=Array(1,3,7)
案例介绍：
1. 仅根据第1列重复项删除整行
源表：黄色标记的都是重复项
VBA语句：
Option Explicit
Option Compare Text
Sub 去重()
Dim sSheet As Worksheet
Set sSheet = ActiveSheet
sSheet.Range("A1:H25").RemoveDuplicates Columns:=, Header:=xlYes
End Sub
或：个人推荐下面这种写法
Option Explicit
Option Compare Text
Sub 去重()
Dim sSheet As Worksheet
Set sSheet = ActiveSheet
sSheet.Range("A1:A25").EntireRow.RemoveDuplicates Columns:=, Header:=xlYes
End Sub
运行后：
去重复项时忽略大小写，示例
源表：
VBA语句：
Option Explicit
Option Compare Text
Sub 去重()
Dim sSheet As Worksheet
Set sSheet = ActiveSheet
sSheet.Range("A1:H25").RemoveDuplicates Columns:=, Header:=xlYes
End Sub
运行后：
RemoveDuplicates 方法去重规则总结：
a.去重时忽略大小写
b.前或后带空格的项却不做为重复项，无法去重，见上面案例。----- 关于这一点，经验验证：WPS 2019 --- 数据 --- 删除重复项 也是无法去除的，因此RemoveDuplicates 方法和工具菜单的方式去重是一样的效果。
2. 仅根据第2列重复项删除整行
源表：
VBA语句：
Option Explicit
Option Compare Text
Sub 去重()
Dim sSheet As Worksheet
Set sSheet = ActiveSheet
sSheet.Range("A1:H25").RemoveDuplicates Columns:=, Header:=xlYes
End Sub
或：sSheet.Range("A1:H25").RemoveDuplicates Columns:=Array(2), Header:=xlYes
运行后：
3. 仅根据第 1 和 2列 重复项删除整行,能否生效？
源表：
VBA语句：
Option Explicit
Option Compare Text
Sub 去重()
Dim sSheet As Worksheet
Set sSheet = ActiveSheet
sSheet.Range("A1:H25").RemoveDuplicates Columns:=Array(, 2), Header:=xlYes
End Sub
运行后：
发现没有效果，重复项没有去除掉！！
再示例： 要过滤的多列重复项 都处在同一行
源表：
VBA语句：
Option Explicit
Option Compare Text
Sub 去重()
Dim sSheet As Worksheet
Set sSheet = ActiveSheet
sSheet.Range("A1:H25").RemoveDuplicates Columns:=Array(, ), Header:=xlYes
End Sub
运行后：
第1列的重复项和第3列的重复项 处于同行，才会去做移除操作，见上图!
另:
http://www.amarindaz.com/excel-vba-remove-duplicates/ Excel VBA Remove Duplicates Method
Header- It determines whether the given range does contain header or not. User can specify three values in header parameter. They are shown below
Header:=xlYes- Choose this value if given range does contain Header
Header:=xlNo – Choose this value if given Range doesn’t contain header
Header:=xlGuess- Choose this value if you want excel to determine the existence of Header
示例1：Header:=xlYes
源表：
VBA语句:
Option Explicit
Option Compare Text
Sub 去重()
Dim sSheet As Worksheet
Set sSheet = ActiveSheet
sSheet.Range("A1:H25").RemoveDuplicates Columns:=, Header:=xlYes
End Sub
运行后：
第1列 与标题行重复项 没有去除掉，其它行重复项已去除。
示例2：Header:=xlNo
源表：
VBA 语句：
Option Explicit
Option Compare Text
Sub 去重()
Dim sSheet As Worksheet
Set sSheet = ActiveSheet
sSheet.Range("A1:H25").RemoveDuplicates Columns:=, Header:=xlNo
End Sub
运行后：
发现与标题行重复项已去除！
示例3：Header:=xlGuess
源表：
VBA语句：
Option Explicit
Option Compare Text
Sub 去重()
Dim sSheet As Worksheet
Set sSheet = ActiveSheet
sSheet.Range("A1:H25").RemoveDuplicates Columns:=, Header:=xlGuess
End Sub
运行后：
