YİNELENENLERİ KALDIR

[metcan3720]

Merhaba,

Ekte, A sütununda yer alan genel listeyi, D Sütununda "yinelenen değerleri" kaldırılmış olarak getirtmek istiyorum.Yani bunu formülize etmek istiyorum. Konu hakkında yardımcı olur musunuz.

Teşekkür ederim.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub ozet()

    Dim d As Object, i As Long, deg, son As Long

    Set d = CreateObject("Scripting.Dictionary")
    son = Cells(Rows.Count, "A").End(xlUp).Row

    Application.ScreenUpdating = False

    For i = 1 To son
        deg = Cells(i, "A")
        If Not d.exists(deg) Then
            d.Add deg, Nothing
        End If
    Next i
 
    Range("D:D").ClearContents
    Range("D1").Resize(d.Count) = Application.Transpose(d.keys)

End Sub

 

[metcan3720]

Emeğinize sağlık, çok teşekkürler.