在excel中,好不好可以查找到一列中重复的数据并把重复的数据所在的行

excel

在网上找了个 看看是否能用

用宏处理这样的问题相对方便一点，有兴趣试试：

一、按ALT+F11 打开VB编辑器

韩国

二、双击左边靠上的【工程资源管理器】中的【MS excel 对象】中的ThisWorkbook，在右边的代码窗口贴入下面的代码：

Sub 删除重复数据()'以col列为条件删除的重复行数据'本例是删除标题为sheet1的excel表中以A列（从A2单元格开始）为条件的重复韩国数据Application.ScreenUpdating = False'可根据实际情况修改下面三行的结尾值 Dim sheetsCaption As String: sheetsCaption = Sheet1 Dim Col As String: Col = A Dim StartRow As Integer: StartRow = 2 '以下不需要修改 Dim EndRow As Integer: EndRow = Sheets(sheetsCaption).Range(Col & 65536).End(xlUp).Row Dim Count_1 As Integer: Count_1 = 0 Dim count_2 As Integer: count_2 = 0 Dim i As Integer: i = StartRow With Sheets(sheetsCaption) Do Count_1 = Count_1 + 1 For j = StartRow To i - 1 If .Range(Col & i) = .Range(Col & j) Then Count_1 = Count_1 - 1 .Range(Col & i).EntireRow.Delete EndRow = Sheets(sheetsCaption).Range(Col & 65536).End(xlUp).Row i = i - 1 count_2 = count_2 + 1 Exit For End If Next i = i + 1 Loop While i EndRow + 1 End With MsgBox 共有 & Count_1 & 条不重复的数据 MsgBox 删除 & count_2 & 条重复的数据Application.ScreenUpdating = TrueEnd Sub

三、回到excel表，运行菜单 【工具】－【宏】－【宏】，选择 删除重复数据 这条宏，然后按执行。