大家知道,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列重复值所在的行。 |
|||
excel一列有重复项怎么删除重复项对应一行数据
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 86345@qq.com 举报,一经查实,本站将立刻删除。
赞 (4)
激光打印机对身体有害吗(如何选择激光打印机呢)
上一篇
2022-04-07 09:17:44
excel找到隐藏的行(excel怎么查看隐藏的行列)
下一篇
2022-04-07 09:20:06