sayı eşleştirme yardım

[antillop]

selam excel de sayılarla ifade ediyim mesela 2 tane 1 den 50 ye kadar sayı var bu sayıları nasıl kolayca birbirinden farklı kombinasyon yapabilirim?

örnek:
1-1 2-1 3-1 4-1
1-2 2-2 3-2 4-2
1-3 2-3 3-3 4-3
.... .... .... 4-4...

 

[leumruk]

Merhaba,

Sub Dene()
Columns(4).ClearContents
Sat = 1
For x = 1 To 50
    For y = 1 To 50
        Cells(Sat, "d") = Cells(x, "a") & "_" & Cells(y, "b")
        Sat = Sat + 1
    Next
Next
End Sub