如何用vba删除excel单元格区域中的重复值？

在vba中，删除重复值是一项经常性的任务。

对于一些特殊的复杂的删除重复值，可以借用字典对象来完成。

对于删除excel单元格列表中的数据重复值可以借用单元格range对象的RemoveDuplicates方法来快速地删除。

RemoveDuplicates方法是在excel 2007版本开始新增的功能。

它的命令按钮在“数据”选项卡下“数据工具”组中“删除重复项”。

它的语法如下：

expression.RemoveDuplicates(Columns, Header)

其中Columns参数是由列序号组成的数组，如array(1,2)表示删除1、2列的所有重复项。如果省略Columns参数，则表示删除所有列的重复值。

Header参数表示是否数据区域的首行包含标题行，它可以是xlNo、xlYes、xlGuess 3种。

如以下代码将删除活动工作表单元格区域A1：C100中第一和第二列的所有重复项。

Sub QQ1722187970()
    ActiveSheet.Range("A1:C100").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub