Tekrarlanan değerleri eleme

[as12asdf]

slm konu ile ilgili arama yaptım ama benim işime yarayacak cevap bulamadım
benim sorum tekrarlanan aynı değerleri eleme

ekte bir dosya gönderiyorum dosyada görüldüğü üzere A ve B sütunlarının her ikisindede aynı olan ve 1 den fazla olan değerleri eleyip hepsinden birer tane olmasını ve C D stunlarına yazdırılmasını istiyorum nasıl yaparım.
şimdiden teşekkürler :yardim:

veri>süz>gelişmiş süzgeç> ten yapılabiliyor

 

[Orion1]

Merhaba.
Aşağıdaki kod A sütünundaki veri ile B sütunundaki ayni olan verileri
C ve d sütunlarına tekrarsız listeler.
Boş bir modüle kopyalayınız ve deneyiniz.

Sub Tekrarsiz_listele()
Dim var As Byte, sat As Long, i As Long, k As Long
Dim kaynak_veri As String, hedef_veri As String
Sheets("Sayfa1").Select
Range("C1:D65536").ClearContents
sat = 1
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If WorksheetFunction.Proper(Cells(i, "A").Value) = WorksheetFunction.Proper(Cells(i, "B").Value) Then
        kaynak_veri = Cells(i, "A").Value & Cells(i, "B").Value
        For k = 1 To Cells(65536, "C").End(xlUp).Row
            hedef_veri = Cells(k, "C").Value & Cells(k, "D").Value
            If WorksheetFunction.Proper(kaynak_veri) = WorksheetFunction.Proper(hedef_veri) Then
                var = 1: Exit For
            End If
        Next k
            If var = 0 Then
                Cells(sat, "C").Value = Cells(i, "A").Value
                Cells(sat, "D").Value = Cells(i, "B").Value
                sat = sat + 1
            End If
            var = 0
    End If
Next i
MsgBox "Benzersiz veriler listelendi", vbOKOnly, Application.UserName
End Sub