EXCEL表格 如何在同一列中找出相同的数据
假设数据在A列，在B1输入公式=countif(A$1:A1,A1)，下拉，B列数据>1时，对应的A列数据为重复的数据。
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
可以根据以下步骤操作。
1、在我们的电脑上打开要找出同一列重复数据的表格，如下图所示。
2、打开表格之后，点击【数据】再点击【高亮重复项】。
3、在高亮重复项中选择【设置高亮重复项】。
4、进去高亮重复显示值界面之后，选中要找的一列数据，这里选中的是c列。
5、可以看到一列的重复数据全部高亮显示了，这样就找出了重复数据。
6、如果我们不想高亮显示重复数据，点击【数据】再点【高亮重复项】再点【清除高亮重复项】，就可以恢复正常表格样式了。
材料/工具：excel2010
1、打开excel2010表格，例如要找到这一列表数据中的所有的重复值 。
2、接着点击表格左上角的开始菜单按钮
3、然后找到“条件格式”这个菜单，这个菜单在开始菜单下，靠中间的位置。
4、设置让重复值突出显示，这样就很方便的看到重复数据了。
5、给重复值设置一个特定的格式，比如浅黄色的背景，或者红色的背景等。
6、最后重复值就很明显的被标明出来了。
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
用条件格式吧，当有相同的数据时，会用红颜色填充显显示，假设在B列，从B3开始，数据200行
格式--条件格式--公式，输入=COUNTIF(B4：B204,B3),点格式--图案选红色，然后添加--公式，输入=COUNTIF($B$1:B3,B4)，点格式--图案选红色即可实现要求，（其它的格用格式刷即可）QQ：925382491
