'判断是否有重复1

    Dim arrT As Range, rng As Range

        Set arrT = Range("A2:A" & rt & "")          '判读A列单元格

        For Each rng In arrT

        i = Application.CountIf(arrT, rng)      '用CountIf函数扫描出重复值

            If i > 1 Then

                Union(rng, [a1]).Interior.Color = 10284031   '把A1单元格也变色，醒目

             End If

           Next

  '判断是否有重复2

For i=2 to rt

                If Application.CountIf(Range("A2:A" & rt), Cells(i, 1)) > 1 Then

                       Union([a1], Cells(i, 1)).Interior.Color = 10284031

                       Cells(i, "y") = Cells(i, "y") & "重复"            '除了颜色还有标志，便于统计

                End If

Next

删除重复行   

 Range("A1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes