【求助】请教excell高手！！！

车少

有一个excell文件，有2列，几千行，我想检查其中一列，如果这一列有重复的，就只保留其中一行，其他的删除，请问如何实现？

david99

先用筛选功能，然后把重复的DEL吧   我理解你是要这么做

snhr

排序先，

if(x11=x10,1,0)

然后filter 删除所有1的。

完成。

车少

能详细点儿吗？我只会用excell的简单功能

snhr

文件发给我，我帮你搞定。

zhq76

如果是2007就很方便，见图

车少

谢谢大家，我先自己试试看，主要是文件比较多，自己要弄明白

ffpp

最好，写个宏来干这个事情。这里有段代码。打开VBA编辑器，放到workbook中，执行这个宏就可以了。

Sub delrow()

Application.ScreenUpdating = False

Dim sheetsCaption, Col, StarRow
Dim EndRow, Count_1, Count_2, i

sheetsCaption = "Sheet1"   '定义目标sheet
Col = "A"                          '定义重复行所在列
StartRow = 2                    '定义从哪行开始


EndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).Row
Count_1 = 0
Count_2 = 0
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 = True
End Sub