bir sütundaki ayn değerlerden sadece bir tanesini tutmak diğerlerinin kapatılmasını i

[ilkturkzafer]

Arkadaşalr kafayı yiyorum, bir sütunda bulunan aynı değerlerden sadece bir tanesi kalsın diğerleri gitsin istiyorum bunu nasıl yaparım lütfen yarım

 

[Orion1]

Aşağıdaki kodlar a sütununda mükerrer kayıtlardaki hücreleri siler.

Sub mukerrer()
Application.ScreenUpdating = False
For i = Cells(65536, "A").End(xlUp).Row To 1 Step -1
    If WorksheetFunction.CountIf(Range("A1:A" & i), Range("A" & i)) > 1 Then
        Range("A" & i).Delete (xlUp)
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam..!!"
End Sub