Function KBİRLEŞTİR(Alan As Range, Ayıraç As String) As String
Application.Volatile True
For Each Veri In Alan
If Veri.Text <> "" Then
KBİRLEŞTİR = KBİRLEŞTİR & Ayıraç & Veri.Text
End If
Next
End Function
[B]=KBİRLEŞTİR([COLOR="Red"]Hücre_Aralığı[/COLOR];[COLOR="Blue"]Birleştirme_Ayıracı[/COLOR])[/B]
=KBİRLEŞTİR(Sayfa2!A1:A100;" ")