Iki hücre arasında benzerleri bulma

[yasarka]

Herkese Selam,

Elimde 5.000 üyeden oluşan ticaret odası sicil kaydı ve bankanın 14.000 kişiden oluşan ticari müşteri listesi var.

Amacım 5.000 kişilik listenin karşısına 14.000 kişiden ilk 3 harfi tutan; ya da karakter olarak en fazla harfi aynı olan kişileri getirmek.

Bunu nasıl yapabilirim?


Yardımınız için şimdiden teşekkürler.

Svg.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub benzerlistele()
Dim sat1, sat2, s As Long
Sayfa1.[b1:b50000] = Empty
s = 1
Application.ScreenUpdating = False
    For sat1 = 1 To Sayfa1.Cells(65536, "a").End(xlUp).Row
    For sat2 = 1 To Sayfa2.Cells(65536, "a").End(xlUp).Row
        If Left(Sayfa1.Cells(sat1, "a"), 3) Like Left(Sayfa2.Cells(sat2, "a"), 3) Then
            Sayfa1.Cells(sat1, "b") = Sayfa2.Cells(sat2, "a").Value
            s = s + 1
        End If
    Next: Next
Application.ScreenUpdating = True
End Sub

 

[yasarka]

Cevabınız için teşekkür ederim.

Syg.