Sütun Birleştirme?

[aliahmet]

Merhabalar,

A1 sütununda A500 Sütununa kadar verilerim var. Bütün verilerin arasına virgül koyarak nasıl birleştirebilirim.

Örnek Ektedir.

Yardımcı olanlara şimdiden teşekkür ederim.

 

[bzace]

Merhaba,

Kod ile;
http://www.excel.web.tr/f48/sutudaki-verileri-bir-hucre-icine-araya-virgul-koyarak-t59921.html #2 numaralı mesaj

Fonksiyon ile;
http://www.excel.web.tr/f47/dizi-formulleri-hakkynda-nerileriniz-t139410.html #9 numaralı mesajları inceleyiniz.

 

[bzace]

Yada KTF ile;
Kullanılışı

=Combine(A1:A500)

İlgili kod

Function Combine(WorkRng As Range, Optional Sign As String = ",") As String
    Dim Rng As Range
    Dim OutStr As String
    For Each Rng In WorkRng
        If Rng.Text <> "," Then
            OutStr = OutStr & Rng.Text & Sign
        End If
    Next
    Combine = Left(OutStr, Len(OutStr) - 1)
End Function

 

[Murat OSMA]

Join fonksiyonu ile alternatif;

[FONT="Trebuchet MS"]Sub Emre()
    Dim Rky(1), i%
    For i = 1 To Range("A65536").End(3).Row
        Rky(0) = Cells(i, 1)
        [B1] = [B1] & [COLOR="Red"]Join[/COLOR](Rky, "[COLOR="red"],[/COLOR]")
    Next i
     i = Empty: Erase Rky
End Sub[/FONT]

 

[aliahmet]

Çok teşekkür ederim

 

[aliahmet]

Join fonksiyonu ile alternatif;

[FONT="Trebuchet MS"]Sub Emre()
    Dim Rky(1), i%
    For i = 1 To Range("A65536").End(3).Row
        Rky(0) = Cells(i, 1)
        [B1] = [B1] & [COLOR="Red"]Join[/COLOR](Rky, "[COLOR="red"],[/COLOR]")
    Next i
     i = Empty: Erase Rky
End Sub[/FONT]

Murat bey Yardımlarınız için teşekkürler...

Veriler B3 den başlayıp B100 kadar gidiyorsa C3 de nasıl birleştirebiliriz. Yapmaya çalıştım fakat hata verdi....

 

[Murat OSMA]

[FONT="Trebuchet MS"]Sub Emre()
    Dim Rky(1), i%
    For i = [COLOR="Red"]3 [/COLOR]To Range("[COLOR="red"]B[/COLOR]65536").End(3).Row
        Rky(0) = Cells(i, [COLOR="red"]2[/COLOR]) ' [COLOR="Blue"]veya Cells(i, "[COLOR="red"]B[/COLOR]")[/COLOR]
        [[COLOR="red"]C3[/COLOR]] = [[COLOR="red"]C3[/COLOR]] & Join(Rky, ",")
    Next i
     i = Empty: Erase Rky
End Sub[/FONT]

İki kod arasında farklılıkları gözlemleyerek anlamaya çalışın.