【烟花原创】VBA零基础之第79篇 单元格对象Range（二十三）

hwc2ycy

RemoveDuplicates 方法

　07版本开始有的 删除重复项 功能。
　　

　从值区域中删除重复的值。

　语法：RemoveDuplicates(Columns, Header)

　　Columns 可选，包含重复信息的列的索引数组。

　　　如果没有传递任何内容，则假定所有列都包含重复信息。

　　Header 可选 XlYesNoGuess 指定第一行是否包含标题信息。

　　　xlNo 是默认值；如果希望 Excel 确定标题，则指定xlGuess。

　数据截图：
　　

　示例1：

　　WithRange("a1").CurrentRegion
　　　.RemoveDuplicates Header:=xlNo
　　　.RemoveDuplicates Header:=xlNo
　　　.RemoveDuplicates Header:=xlGuess
　　End With

　　没有指定Columns参数时，该方法不会去除任何重复项，同时Header参数也无意义。

　　这一点请注意下，帮助中虽然这么写了。
　　但是经过测试，没有Columns参数的RemoveDuplicates方法调用不会去除重复项。

　示例2：

　　Range("a1").CurrentRegion _

　　　 .RemoveDuplicates Columns:=1, Header:=xlNo

　　‘以第一列为准去除重复项

　示例2效果图：
　　

　示例3：

　　Range("a1").CurrentRegion _

　　　　 .RemoveDuplicates Columns:=2,Header:=xlNo

　　以第2列（Ｂ列）为准去除重复项，效果如下图：
　　　

　示例4：

　　源数据截图：
　　　

　　　Range("d2").CurrentRegion _

　　　 　.RemoveDuplicates Columns:=3, Header:=xlYes

　　　在D2所在的单元格区域内以第3列为准（F列）去除重复项，

　　　并且指定第一行为标题行，效果见下图：
　　　　

　示例5：

　　Range("d2").CurrentRegion _

　　　　 .RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo

　　在D2所在的单元格区域中，以区域中的所有列为准，去除重复项（无标题行）

　　效果见下图：

　　　

yewei113

学习了

tingfeng461002

ANDY0393

谢谢分享，标记，七十九