Soru Farklı sütundaki aynı olan değerleri aynı satıra getirme?

[voodoochild]

A ve B sütununda baştan aşşağı doğru sıralanmış değerler mevcut bunların hepsi farklı sıralarda yanyana getirmemiz mümkünmüdür.
Örn;
aslında olan ------------ olmasını istediğim

151214 -- 454553 ------ 151214 -- 151214
124575 -- 555666 ------ 124575 -- 124575
212452 -- 151214 ------ 212452 -- 212452
454553 -- 124575 ------ ............ -- .............
555666 -- 212452 ------ ............ -- .............

 

[Murat OSMA]

Siz bir ipucu vereyim.

Sitenin üst köşesinde Ara butonu vardır, oradan site içinde aynı konuda veya mesaj içeriğinde şu ifade geçenleri ara diyebilirsiniz.
Birçok konu ve mesaj karşınızda listelenecektir. Daha önce bu konu da birçok kez açıldı ve yanıt verildiği için bu şekilde bir öneride bulundum..

Saygılar

 

[voodoochild]

İşime yarar bir formül bulamadım. Yardım edebilirmisiniz ?

 

[Murat OSMA]

Peki..

Verilerinizin A ve B sütunlarında olduğunu düşünürsek ve A sütunundaki verileri baz alacağımızı var sayarsak, bu kodları kullanabilirsiniz..

Sub ExcelTurkey()
    Dim i&, a&, etf As Range
    On Error Resume Next
    a = 1: Range("D1:E10000").ClearContents
    For i = 1 To Range("A65536").End(3).Row
        Set etf = Columns(2).Find(Cells(i, "A").Value, , , 1)
        If Not etf Is Nothing Then
            Cells(a, "D").Value = Cells(i, "A").Value
            Cells(a, "E").Value = etf.Value
            a = a + 1
        End If
    Next i
    son = Cells(Rows.Count, "c").End(3).Row + 1
    Range("C" & son).Resize(UBound(dizim) + 1).Value = Application.Transpose(dizim)
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
    Set etf = Nothing: a = Empty: i = Empty
End Sub