怎样在Excel中删除同列重复值所在的行

09-28

大家知道，Excel 2007及以后的版本中有一个“删除重复项”的功能，可以快速删除区域中的重复项，十分方便。但对于多列数据，如果第一列包含重复数据，其对应行中的其他列数据不同，Excel是不会将该行数据看做“重复项”的。如下图所示的数据，“姓名”列包含重复值，这些重复姓名对应行的其他列数据并不相同，“删除重复项”的功能就无法删除重复姓名所在的行。那么遇到这种要以某列为标准，删除某列重复值所在的行的情况该怎样操作呢？本文介绍高级筛选、公式和VBA的方法，供参考。假如数据在A1:C1328区域中，以Excel 2013为例。方法一、用高级筛选在功能区选择“数据”选项卡，在“排序和筛选”组中单击“高级”，弹出“高级筛选”对话框，“方式”默认已选择“在原有区域显示筛选结果”，勾选“选择不重复的记录”，将“列表区域”设置为A列。单击“确定”，Excel会筛选出A列不重复的姓名所在的行。将筛选出来的数据复制粘贴到其他位置，即可类似实现“删除”A列重复值所在的行。方法二、辅助列+公式在D2单元格输入公式： =COUNTIF(A$2:A2,A2) 然后向下填充公式。可以看到对于A列第一次出现的姓名，公式返回“1”，而对于以后重复出现的姓名，公式返回大于“1”的数值。筛选D列大于“1”的数值，删除其所在行即可。方法三：用VBA 利用VBA来删除某列重复值所在行的算法很多，例如可以用工作表函数COUNTIF、高级筛选或字典等。本文介绍用字典的方法，速度较快，特别适合于数据量较大的情况。在笔者的电脑中，1300多行的数据，用时不到0.1秒。按Alt+F11，打开VBA编辑器，在代码窗口中粘贴下列代码。 Sub 删除A列重复值所在的行() Dim d As Object Dim Arr Dim i As Integer On Error Resume Next Set d = CreateObject("Scripting.Dictionary") Arr = Range("A2", [A65536].End(xlUp)) For i = 1 To UBound(Arr) '将A列第一次出现的值添加到 Dictionary 对象 If Not d.exists(Arr(i, 1)) Then d.Add Arr(i, 1), "" Else '将A列重复出现的值设置为空 Arr(i, 1) = "" End If Next Set d = Nothing Range("A2:A" & i) = Arr '删除A列为空的行 Range("A2:A" & i).SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub 运行代码，即可删除A列重复值所在的行。