Tekrarlanmayan verileri listesi

[ibrahimnur]

benim bir listem var. birden fazla tekrarlanan verileri istemiyorum. sadece bir defa yazılı olabn verileri listelemek istiyorum.

 

[merakli_72]

Filtre/Gelişmiş
Başka bir yere kopyala seç
Hedef yazılacak hücreyi belirle
yalnızca benzersiz kayıtlar sec

 

[veyselemre]

Sub tekrarsizlariBul()
    son = Range("A" & Rows.Count).End(3).Row
    sat = 2
    For i = 2 To son
        If WorksheetFunction.CountIf(Range("A2:A" & son), Cells(i, 1)) = 1 Then
            Cells(sat, 2) = Cells(i, 1)
            sat = sat + 1
        End If
    Next i
End Sub

 

[ibrahimnur]

teşekkür ederim. tam istediğim gibi