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列重复值所在的行。

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 86345@qq.com 举报,一经查实,本站将立刻删除。
(4)
上一篇 2022-04-07 09:17:44
下一篇 2022-04-07 09:20:06

猜你喜欢

  • excel 2016合并单元格快捷键

    Excel 2016中合并单元格的三种方法 最简单最常用的方法大家都会,我们选中要合并的单元格。 然后点击“开始”菜单栏的合并并居中即可。 第二种方法稍微麻烦,我们选中要合并的单元…

    2022-04-01
  • 苏轼号什么_苏轼的诗词

    苏轼,号东坡居士,北宋著名文学家,宋词豪放派的代表。他学识渊博,多才多艺,是中国文学艺术史上罕见的全才,在书法、绘画、诗词、散文各方面都有很高造诣。 元丰三年,因“乌台诗案”受诬陷…

    2023-01-31
  • excel表格中sumifs函数的使用方法

    excelsumifs使用方法如下: 一、SUMIF函数的一个怪异用途 Excel表格中的SUMIF函数在条件求和时经常使用,一般习惯于于根据某一列计算另一列的数字之和。 例1:假…

    2022-04-04
  • 石韦的功效与作用是什么_石韦的作用和功效

    石韦是中药,也是植物。它通常分布在中国、越南、印度、韩国和日本。下面我们来看看石韦的功效和作用。 1、止咳 石韦微寒,可以清除身体肺热,具有止咳喘的作用,比如支气管哮喘和支气管炎等…

    2022-08-30
  • excel重复记录的筛选和删除(使用筛选功能删除重复的数据项)

    Excel有个小缺陷,就是不能自动识别重复记录。有些朋友为了清除这些重复记录,手动逐一删除,既费时又费力。 虽说Excel中并没有提供给我们清除重复记录这样的功能,但我们还可以利用…

    2022-04-17
  • 家庭影院装修设计,家庭影院装修设计案例

    私人家庭影院,观众可以按影片类型、流行程度等不同标准进行分类查找,选到中意影片后只要按一下按钮,电脑就会自动“下单”,然后您就可以带上零食,在包厢里坐等电影开映了,一个包厢少至1人…

    投稿 2023-11-12
  • 中式客厅沙发背景画有什么讲究_中式客厅沙发背景墙挂什么画好

    中式客厅沙发背景墙挂牡丹可以吗是很多友友好奇的,毕竟对于注重风水的友友们来讲,家中一花一物的摆放都是有讲究的,尤其是客厅,下面小编就和大家一起看看中式客厅沙发背景墙挂什么画好 。 …

    2023-03-25
  • 空调怎么使用更省电,空调省电小窍门

    随着天气渐渐变冷,许多地方都陆续开启了空调,许多人开空调的时候,都会将其温度设定在26°C,认为这样舒适又省钱,那么空调一晚上开26°C耗电量大吗,算了一下,其实没你想得那么贵。 …

    2023-11-03
  • 如何驱赶家里的老鼠_怎么除掉老鼠

    老鼠来无影去无踪,从来不与人相见。它们有敏锐的嗅觉,尤其是人的气味。一闻到就会避之不及。它们的巢也在不为人知的地方,永远不会被打扰。 家里有老鼠怎么办 ? 封堵入侵口,等待室内老鼠…

    2022-08-21
  • 开春怎么穿搭_春季穿搭指南

    学生党必备的春季穿搭指南,可盐可甜,风格多样皆在此,看看有没有你喜欢的? ▲学生党一般在日常的着装中,大部分都偏向于简约的造型,并在简约中加入一些独特的个性。这么看来的话,牛仔裤和…

    2023-03-03

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注