urgent, help!

E

eeehwc

I have some words in 50 different cells, how can I put them togehter
into 1 single cell and seperated by comma by a formula.
Thank you very much.
 
G

Gary''s Student

Enter and use this tiny UDF:

Function concat(r As Range) As String
Dim rr As Range
concat = ""
For Each rr In r
concat = concat & rr.Value
Next
End Function
 
J

JMay

If
A1 = Have
A2 = a
A3 = nice
A4 = Holiday
then
in B1 enter = A1&" "&A2&" "&A3&" "&A4
B1 will show Have a nice holiday

HTH
 
Top