eşleştirme yapmak

[bluebell]

merhaba herkeze
A ve B sutunlarında yaklasık 5000 tane sayılarım var ben bunları eşleştirmek istiyorum renk olarak yada baska sekilde bi sütünda aynı rakamlar olabilir bunların ayrıayrı eşleşmesini
yani a sutununda 7.689 bir adet B sutunda 2 adet aynı rakamdan var ben sadece bir tanesini eşlemesini diğerinin bosta kalmasını istiyorum yada b ile a yı yer değişereibilriz
saygılar

 

[hamitcan]

Aşağıdaki kodu dener misiniz? (Kodun açıklaması: A sütunundaki bilgileri B sütununda ara, varsa sarıya boya.)

Sub bulisaretle()
For t = 1 To [a65536].End(3).Row
    Set ara = Columns(2).Find(Cells(t, 1))
    If Not ara Is Nothing Then
    Cells(t, 1).Interior.ColorIndex = 6
    Cells(ara.Row, 2).Interior.ColorIndex = 6
    End If
Next
End Sub

 

[Ziraat]

HerŞey İÇİn TŞk