Thread: CONCATENATE
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default CONCATENATE

Simple form...........

In D131..............not D132!

=D132&D133&D134&D135 etc.

Not so simple form..............

=D132 $ " " D133 & " " & D134 etc.

Easy way.............use a UDF

Function ConCatRange22(CellBlock As Range, Optional Delim As String = "") _
As String
'entered as =concatrange22(a1:a10,", ") desired delimiter between quotes
'as written delimiter is comma space
Dim Cell As Range
Dim sbuf As String

For Each Cell In CellBlock.Cells
If Cell.text < "" Then
sbuf = sbuf & Cell.text & Delim
End If
Next Cell

ConCatRange22 = Left(sbuf, Len(sbuf) - Len(Delim))

End Function

Paste the UDF to a General module in your workbook.


Gord Dibben MS Excel MVP

On Thu, 15 Apr 2010 11:38:01 -0700, Tservo
wrote:

I would LOVE to combine cells from the same column instead of cut & pasting
information. - example D132 through D147 and have this combined information
appear in D132. Is this possible?