Aynı olan isimlerden bir tane almak

[batuhan76]

Merhaba;
Bir sayfada yer alan aynı isimlerden birer tane almak istiyorum.
örnek:
a
a
a
b
b
b
c
c
c
c yapmak istediğim ise aşağıdaki gibi

a
b
c

yardımcı olabilirseniz sevinirim.
Teşekkürler.

 

[1Al2Ver]

Macrolu çözüm,

Değerli uzman arkadaşların çözümüdür

 

[Ali]

Mükerrer kayıt uygulamalarını inceleyiniz. Birçok örnek bulabilirsiniz.

 

[Orion1]

Aşağıdaki kodu kullanınız.
A sütununda arar B sütununa yazar.

Sub mukerrer()
Dim sat As Long, i As Long
Application.ScreenUpdating = False
Range("B1:B65536").Clear
sat = 1
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If WorksheetFunction.CountIf(Range("A1:A" & i), Range("A" & i)) = 1 Then
        Cells(sat, "B").Value = Cells(i, "A").Value
        sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşelm tamamdır."
End Sub