hücreleri birleştirme

[F650GS]

merhaba,

aşağıdaki gibi hücredeki veriyi aralarına virgül koyarak tek hücrede nasıl bileştirebilirilim?

ali
veli
selami
hayati
mehmet
ahmet
Hüseyin

ali, veli,selami.... gibi görünsün istiyorum

 

[EmrExcel16]

Merhaba , aşağıdaki linkde benzer bir konu işlemiştik inceleyiniz..

https://www.excel.web.tr/threads/hecelenmis-kelime-yada-isim-soyad-birlestirme.186313/#post-1029592

 

[EmrExcel16]

Buda ilgili linkdeki "KTF" ("Kullanıcı Tanımlı Fonksiyon") nin size uyarlanmış (aralarında virgül) hali.

Function BİRLEŞTİRARALIK(Rng As Range)
    For Each Hcr In Rng
        If Len(Hcr) > 0 Then
            Deg = Deg & Hcr & ", "
        End If
    Next
    BİRLEŞTİRARALIK = Left(Deg, Len(Deg) - 2)
End Function

Kullanımı

=BİRLEŞTİRARALIK(A1:A5)

 

[Korhan Ayhan]

Alternatif;

KTF;

=KBİRLEŞTİR(Hücre_Aralığı;Ayraç)

Option Explicit

Function KBİRLEŞTİR(Alan As Range, Optional Ayraç As String = ",")
    Application.Volatile True
    Veri = Application.Evaluate("=IF(LEN(" & Alan.Address & ")>0," & Alan.Address & ",""X"")")
    KBİRLEŞTİR = Join(Filter(Application.Transpose(Veri), "X", False), Ayraç)
End Function