电脑教程
位置：首页>> 电脑教程>> office教程>> 怎样在Excel中删除同列重复值所在的行

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

　　发布时间：2023-05-27 18:39:17　

标签：怎样在Excel中删除同列重复值所在的行
大家知道，Excel 2007及以后的版本中有一个“删除重复项”的功能，可以快速删除区域中的重复项，十分方便。但对于多列数据，如果第一列包含重复数据，其对应行中的其他列数据不同，Excel是不会将该行数据看做“重复项”的。如下图所示的数据，“姓名”列包含重复值，这些重复姓名对应行的其他列数据并不相同，“删除重复项”的功能就无法删除重复姓名所在的行。那么遇到这种要以某列为标准，删除某列重复值所在的行的情况该怎样操作呢？本文介绍高级筛选、公式和VBA的方法，供参考。
               怎样在Excel中删除同列重复值所在的行
               假如数据在A1:C1328区域中，以Excel 2013为例。
               方法一、用高级筛选
               在功能区选择“数据”选项卡，在“排序和筛选”组中单击“高级”，弹出“高级筛选”对话框，“方式”默认已选择“在原有区域显示筛选结果”，勾选“选择不重复的记录”，将“列表区域”设置为A列。
               怎样在Excel中删除同列重复值所在的行
               单击“确定”，Excel会筛选出A列不重复的姓名所在的行。
               怎样在Excel中删除同列重复值所在的行
               将筛选出来的数据复制粘贴到其他位置，即可类似实现“删除”A列重复值所在的行。
               方法二、辅助列+公式
               在D2单元格输入公式：
               =COUNTIF(A$2:A2,A2)
               然后向下填充公式。可以看到对于A列第一次出现的姓名，公式返回“1”，而对于以后重复出现的姓名，公式返回大于“1”的数值。
               怎样在Excel中删除同列重复值所在的行
               筛选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列重复值所在的行。


0
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com