excel筛选重复项代码

Sub test()
'updateby Extendoffice 20151030
    Dim xRng As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Sheets("Data").Select
    Columns("A:W").Select
    Set xRng = Columns("A:W")
    If xRng Is Nothing Then Exit Sub
    If (xRng.Columns.Count < 2) Or (xRng.Rows.Count < 2) Then
        MsgBox "the used range is invalid", , "Kutools for Excel"
        Exit Sub
    End If
    xRng.Sort key1:=xRng.Cells(1, 22), Order1:=xlAscending, key2:=xRng.Cells(1, 23), Order2:=xlDescending, header:=xlGuess
    xRng.RemoveDuplicates Columns:=1, header:=xlGuess
End Sub




--COUNTIF函数
=IF(COUNTIF(A$2:A59,A59)>1,"重复","")

posted @ 2018-08-07 17:32  Carri  阅读(358)  评论(0编辑  收藏  举报