Bir Sütundaki Verileri Başka Sütunda Sırayla Eşleştirme

[monelogg]

Merhaba, bir sütundaki her bir satırı sütundaki diğer satırlarla eşleştirecek bir fonksiyona ihtiyacım var, bir satırla iş bittiği zaman alt satıra geçtiğinde diğer üst satırları dikkate almayacak. Biraz karışık oldu, aşağıda gösterimini yapmaya çalıştım.

SÜTUN
a
b
c
d
e
f


EŞLEŞTİRME
a & b
a & c
a & d
a & e
a & f
b & c
b & d
b & e
b & f
c & d
c & e
c & f
.
.
.

Teşekkürler...

 

[Murat OSMA]

Mahir Bey, makro ile çözüm isterseniz yardımcı olabilirim.

 

[monelogg]

Makro ile de olur Murat Bey ona da yok demem. Teşekkürler...

 

[Murat OSMA]

Buyrun, bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%, a%, sat%
    For i = 1 To Range("a65536").End(3).Row
        For a = 2 To Range("a65536").End(3).Row
           If i >= a Then a = i + 1
            sat = sat + 1
            Cells(sat, 2) = Cells(i, 1) & Cells(a, 1)
        Next a
    Next i
    i = Empty: a = Empty: sat = Empty
End Sub[/FONT]

 

[muygun]

Merhaba;
Yardımcı sütunlarla yapılmış formülle çözüm alternatif olsun.
İyi çalışmalar.

 

[monelogg]

Murat hocam ve muygun hocam cevaplarınız için çok teşekkür ederim. İkisi de işimi görüyor.