Soru Yinelenen kayıtları bulmak

[ykend]

Merhaba,
Çok uzun bir müşteri adı soyadı ve telefon nosu olan excel dosyası var, telefon noları farklı formatlarda kayıt edilmiş. öncelikle bunların belli bir ortak şablona çevrilmesi gerekiyor sonrasında örnek dosyada isimleri sildim ama isim sütunu ve telefon sütununu karşılaştırıp mükerrer kayıtları silmesini istiyoruz, boyayabilir de bu şekilde kontrol de edilebilir ilerde. Yardımınızı rica ederiz?

 

[Ömer]

Merhaba,

Deneyiniz.

Sub duzenle()

    Dim son As Long
    
    son = Cells(Rows.Count, "B").End(xlUp).Row
    
    Application.ScreenUpdating = False
    
    With Range("B2:B" & son)
        .Replace What:="+9", Replacement:=""
        .Replace What:="-", Replacement:=""
        .Replace What:=" ", Replacement:=""
        
        Range("IV1").Copy
        .PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
    
        .NumberFormat = "0000 000 00 00"
    End With
    
    Range("A1:B" & son).RemoveDuplicates Columns:=2, Header:=xlYes
    Range("A1").Select
    
End Sub