2 Sütundaki Benzer Verileri Birleştirme

[aksoy53]

"a" ve "b" sütününda olan benzer numaraları "c" sütünuna aktarılmasını ve aktarılırken "a" ve "b" sütününa sadece benzer olmayanlar kalacak

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[YUSUF44]

Alternatif olarak aşağıdaki kodları deneyiniz :

Sub benzer()
sonA = Cells(Rows.Count, "A").End(3).Row
sonB = Cells(Rows.Count, "B").End(3).Row
For i = sonA To 1 Step -1
    If WorksheetFunction.CountIf(Range("B1:B" & sonB), Cells(i, "A")) > 0 Then
        yeni = Cells(Rows.Count, "C").End(3).Row + 1
        If Cells(yeni - 1, "C") = "" Then yeni = yeni - 1
        Cells(yeni, "C") = Cells(i, "A")
        Cells(i, "A").Delete Shift:=xlUp
    End If
Next
For j = sonB To 1 Step -1
    If WorksheetFunction.CountIf(Range("C1:C" & yeni), Cells(j, "B")) > 0 Then
        Cells(j, "B").Delete Shift:=xlUp
    End If
Next

End Sub

 

[aksoy53]

Çok teşekkür ederim.