如何在Excel中删除重复的行使用VBA

Question

如题所述

Answer 1

excel对重复值操作的方法比较多，常见的有以下几种：
条件格式：选中源数据区域-->开始-->条件格式-->新建规则-->对于唯一值或重复值设置格式-->格式-->选择一种填充色-->确定，操作完成后，源数据区域所有的重复数据便被标记上了颜色。此方法的优点是源数据区域可以是一个跨行列的数组区域。

“删除重复项”功能：数据-->删除重复项-->以当前选定区域排序-->确定。此方法可以方便快捷的保留非重复数据，但是仅限于单列操作。

公式法：辅助列输入公式=countif(A1:A10,A1:A10)下拉，然后筛选公式值为1的列。
VBA法：输入如下代码：

Sub tst()
Dim cel1 As Range
Dim cel2 As Range
For Each cel1 In UsedRange
For Each cel2 In UsedRange
If cel1 = cel2 And cel1.Row > cel2.Row Then cel2.Interior.ColorIndex = 20
Next
Next
End Sub本回答被网友采纳