View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
Ron Rosenfeld Ron Rosenfeld is offline
external usenet poster
 
Posts: 5,651
Default Concatenate an array

On Sat, 1 Jul 2006 11:20:02 -0700, Ed wrote:

Hello I guess it might not possible, but I have around 100 columns each with
a single character, I would like to concatenate those into a single cell, is
that possible in ANY way?

thanks


How many rows in each column?

You can do it with a simple UDF:

======================
Option Explicit

Function Concat(rg As Range) As String
Dim c As Range

For Each c In rg
Concat = Concat & c.Text
Next c

End Function
========================

<alt<F11 opens the VB Editor.

Ensure your project is highlighted in the project explorer window, then
Insert/Module and paste the code above into the module that opens.

On the worksheet, enter =Concat(rg) where rg is the range of cells you wish to
concatenate.


--ron