怎样在excel中同一列中查找相同内容的单元格,
2019-06-14 · 旨在提供办公软件的问答帮助。
WPS官方
金山办公软件为金山软件集团子公司,主要研发并运营WPS系列办公软件。WPS是我国自主知识产权的民族软件代表,自1988年诞生以来,WPS Office已经成为全世界最知名的办公软件之一。
向TA提问
关注
展开全部
这个问题其实是excel中很常见的一个问题:对重复值操作。
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2018-07-06 · 知道合伙人软件行家
关注
展开全部
excel中假设在A列需要找到相同数值的单元格,在B1输入以下公式
=IF(COUNTIF($A$1:A1,A1)>1,"重复","0")。
然后往下拖,只要是重复,后面就会显示“重复”两个字,显示0的就是不重复,一目了然。
如果要删除重复的行,那么继续做完上面的以后,按下面的步骤:
1、选中B列复制,再依次点击编辑、选择性粘贴,选中数值,确定。
2、Ctrl+H替换窗口,把重复两个字替换为空(就是“替换为”那里什么也不输入),全部替换。
3、依旧选中B列,按F5,在跳出窗口的左下角点击定位条件,选择空值,确定。
4、依次点击编辑,删除,选择整行,确定。
用vba 删除重复的行。
Sub 删除重复行2()。
Dim rCell As Range, rRng As Range, dRng As Range
On Error Resume Next
Application.ScreenUpdating = False
Set rRng = Range("A1:A" & Range("A65536").End(xlUp).Row)
rRng.AdvancedFilter Action:=xlFilterInPlace, unique:=True
For Each rCell In rRng
If rCell.EntireRow.Hidden = True Then
If dRng Is Nothing Then
Set dRng = rCell.EntireRow
Else
Set dRng = Application.Union(dRng, rCell.EntireRow)
End If
End If
Next
If Not dRng Is Nothing Then dRng.Delete
ActiveSheet.ShowAllData
Application.ScreenUpdating = True
End Sub
=IF(COUNTIF($A$1:A1,A1)>1,"重复","0")。
然后往下拖,只要是重复,后面就会显示“重复”两个字,显示0的就是不重复,一目了然。
如果要删除重复的行,那么继续做完上面的以后,按下面的步骤:
1、选中B列复制,再依次点击编辑、选择性粘贴,选中数值,确定。
2、Ctrl+H替换窗口,把重复两个字替换为空(就是“替换为”那里什么也不输入),全部替换。
3、依旧选中B列,按F5,在跳出窗口的左下角点击定位条件,选择空值,确定。
4、依次点击编辑,删除,选择整行,确定。
用vba 删除重复的行。
Sub 删除重复行2()。
Dim rCell As Range, rRng As Range, dRng As Range
On Error Resume Next
Application.ScreenUpdating = False
Set rRng = Range("A1:A" & Range("A65536").End(xlUp).Row)
rRng.AdvancedFilter Action:=xlFilterInPlace, unique:=True
For Each rCell In rRng
If rCell.EntireRow.Hidden = True Then
If dRng Is Nothing Then
Set dRng = rCell.EntireRow
Else
Set dRng = Application.Union(dRng, rCell.EntireRow)
End If
End If
Next
If Not dRng Is Nothing Then dRng.Delete
ActiveSheet.ShowAllData
Application.ScreenUpdating = True
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以用:比如A栏是人名,可以B栏中输入公式B2=VLOOKUP(A2,A$1:A2,1,FALSE),当前面出现重复的名字时就会显示名字,而当没有重复时就会显示#N/A,
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
=countif(a:a,a1) 下拉
数值大于等于2的就是重复的了
如果你要选择不重复的
数据-高级筛选-勾选 选择不重复记录 选项
2007+版本可以直接数据-删除重复项
数值大于等于2的就是重复的了
如果你要选择不重复的
数据-高级筛选-勾选 选择不重复记录 选项
2007+版本可以直接数据-删除重复项
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |