hücre birleştirme

[stalker]

100 tane farklı hücredeki metni tek bir hücreye kısaca nasıl birleştiririz...
( uzun yolu biliyorum )

 

[uzmanamele]

merhaba

örnek dosya eklerseniz daha net yanıt alabilirsiniz.
uzun yol dediğiniz belkide kısa yoldur. sorunuzda biraz ipucu veriniz.

aşağıdaki ktf yi deneyiniz

'kodları yazan: Yurttas
Public Function BİRLEŞTİRA(ALAN As Range, Optional sALAN As String = " ") As String
Dim sonuc As String, c As Range
Application.Volatile
On Error GoTo Hata
For Each c In ALAN
    If c <> Empty Then sonuc = sonuc & c.Value & sALAN
Next c
sonuc = Left(sonuc, Len(sonuc) - Len(sALAN))
BİRLEŞTİRA = sonuc
On Error GoTo 0
   Exit Function
Hata:
    BİRLEŞTİRA = "#Error#"
End Function

 

[stalker]

Tek tek hücreleri birleştirmeden yapmak mümkün mü...
Makro olmadan tabii..sağolun..Birleştirirken tekrar edenlerin olmaması lazım....