3lü birleştirme

[muhoa]

Arkadaşlar merhaba

3 sutunda birbirinden bağımsız verilerim var. bunları birleştirerek ortak isimde bir veri topluluğu elde etmek istiyorum.İkili veri olsaydı bir şekilde birleştir fonksiyonundan yapardım, hatta üçlüyken de yaparım ama yaklaşık 1000 adet farklı kombinasyonu tek tek incelemem gerekiyor. bunu daha kolay nasıl yapabilirim?

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    Application.ScreenUpdating = False
    a = [A65536].End(3).Row
    b = [B65536].End(3).Row
    c = [C65536].End(3).Row
    sat = 2
    Range("D2:D65536").ClearContents
    
    For bir = 2 To a
        For iki = 2 To b
            For uc = 2 To c
                Cells(sat, "D") = Cells(bir, "A") & " / " & Cells(iki, "B") & " / " & Cells(uc, "C")
                sat = sat + 1
            Next uc
        Next iki
    Next bir
    
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[muhoa]

hocam çok teşekkür ederim büyük bir hengameden kurtardınız beni..