veri eşleştirme

[selenay7]

arkadaşlar elimde 1700 1800 satırlık a ve b sütünlarında rakamlar var içinde eşleşenler olduğu gibi eşleşmeyenlerde var küçükten büyüğüde sıralasanız yan yana gelmiyor aynı rakamlar kaymalar oluyor iki satırda da olan rakamları ortak rakamları saptayabilirmiyim dolasıyıla olmayanlar da eksikler diyebilicem
bi kod filan varmıdır çok zor bi soru ama

 

[Orion1]

Bu yapılabilir.
Nerde listelemek istiyorsunuz?

 

[Orion1]

Verilerin a ve B sütunlarında olduuğu kabulunden,A sütunundaki benzeyen karşılığını b sütununa getirir.

Sub Karsilastir()
Dim i As Long, j As Long, x As Variant
For i = 1 To Cells(65536, "A").End(xlUp).Row
    For j = 1 To Cells(65536, "B").End(xlUp).Row
        If Cells(i, "A").Value = Cells(j, "B").Value Then
            x = Cells(j, "B").Value
            Cells(j, "B").Value = Cells(i, "B").Value
            Cells(i, "B").Value = x
            Exit For
        End If
    Next j
Next i
MsgBox "İşlem Tamamdır..!!"
End Sub