如何查找同一列中查重复的数据库

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

在没选择的情况下，只有工作表和工作薄两种范围可供选择

你这种需求只是特殊的，office设置是面对大众的，没有此功能

查找前，点击选择一下A列也不是什么麻烦的事情

---