EXCEL表格 如何在同一列中找出相同的数据

Question

如题所述

Answer 1

　　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