Birden Fazla Hücreyi Birleştirme

[bayhekim81]

A1 hücresinden A100 hücresine kadar olan hücreleri birleştirmek istiyorum.
=birleştir(A1;A2;A3;A4;A5;....A99;A100) formulünü yazmak çok uzun sürüyor en kısa yolu nedir bu işin? Teşekürler.
Not: Verilerin Arasınada virgülde koymak istiyorum.
Örnek:

İlk Hali:

Dönüştürmek İstediğim Hali

 

[asimavi50]

Aşağıdaki linkteki formülasyonu dosyanıza uygulayınız lütfen.

http://s3.dosya.tc/server23/ZWvRN5/Birle_tirmei_lemi.xlsx.html

 

[bayhekim81]

asimavi50 yanıtınız için teşekürler ancak ben daha pratik bir şey arıyorum.

Örneğin: =birleştir(A1:A100) deniyorum ama böyle olmuyor.
arada virgül olmasada razıyım.
Sağolun

 

[antonio]

A1 hücresinden A100 hücresine kadar olan hücreleri birleştirmek istiyorum.
=birleştir(A1;A2;A3;A4;A5;....A99;A100) formulünü yazmak çok uzun sürüyor en kısa yolu nedir bu işin? Teşekürler.
Not: Verilerin Arasınada virgülde koymak istiyorum.
Örnek:

İlk Hali:

Dönüştürmek İstediğim Hali

Aşağıda ki kodları deneyiniz. Renkli olarak gösterdiğim yerleri kendinize göre değiştiriniz. Benim gönderdiğim örnekte sonucu B1 hücresine yazdırmaktadır.

Sub hepsi_birlikte()
Dim alan As Range, sh As Worksheet
Set sh = Sheets("[B][COLOR="Red"]Sayfa1[/COLOR][/B]") 'Sayfanızın adını yazınız
Set alan = sh.Range("[B][COLOR="red"]A1:A100[/COLOR][/B]") 'Birleştireceğiniz alan başlangıç, bitiş yeri.
For Each veri In alan
    If veri.Value <> "" Then
        birlikte = veri.Value & "," & birlikte
    End If
Next veri
sh.Range([B][COLOR="red"]"B1"[/COLOR][/B]).Value = Left(birlikte, Len(birlikte) - 1) 'Sonucun görüntüleneceği hücreyi yazınız.
End Sub

 

[ÖmerBey]

Alttaki linkte de bir KTF örneği vardı.
İnceleyiniz: http://www.excel.web.tr/f50/tum-hucreleri-tek-hucrede-bo-luksuz-birle-tirme-t137938.html

 

[bayhekim81]

Teşekürler

Cevap Yazan Herkese Teşekkürler