excel de 2 sütun için bütün olası eşleşmeleri oluşturmak

[ervenko]

aaa ddd
bbb eee
ccc fff

diye 2 sütündan

aaa ddd
aaa eee
aaa fff
bbb ddd
bbb eee
bbb fff
ccc ddd
ccc eee
ccc fff

diye bütün olası eşleşmelerini oluşturmak istiyorum, 2 sütünda da yaklaşık 50 veri var, yine ikisi de ayrı sütünlarda yazacak, nasıl yapabilirim, yardımlarınızı bekliyorum.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

. . .

Sub KOD()
Application.ScreenUpdating = False
' A SÜTUNUN İÇİN

Range("D:E").ClearContents

sat = 1
For i = 1 To [A65536].End(3).Row
    For a = 1 To [B65536].End(3).Row
        Cells(sat, "D") = Cells(i, "A") & " " & Cells(a, "B")
        sat = sat + 1
    Next a
Next i

' B SÜTUNUN İÇİN
sat = 1
For i = 1 To [B65536].End(3).Row
    For a = 1 To [A65536].End(3).Row
        Cells(sat, "E") = Cells(i, "B") & " " & Cells(a, "A")
        sat = sat + 1
    Next a
Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "

End Sub

. . .

 

[ervenko]

. . .

Dosyanız ektedir.

. . .

Sub KOD()
Application.ScreenUpdating = False
' A SÜTUNUN İÇİN

Range("D:E").ClearContents

sat = 1
For i = 1 To [A65536].End(3).Row
    For a = 1 To [B65536].End(3).Row
        Cells(sat, "D") = Cells(i, "A") & " " & Cells(a, "B")
        sat = sat + 1
    Next a
Next i

' B SÜTUNUN İÇİN
sat = 1
For i = 1 To [B65536].End(3).Row
    For a = 1 To [A65536].End(3).Row
        Cells(sat, "E") = Cells(i, "B") & " " & Cells(a, "A")
        sat = sat + 1
    Next a
Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "

End Sub

. . .

çok ama çok teşekkürler, ellerinize sağlık.