Change allingment and add a comma

[MDuff]

Hi all does some one know an easy wat to turn what is show below in to this 309,317,801 etc.

Moto splits.xls
	B	C	D	E
4	309	310	803
5	317	311	804
6	801	313
7	802	314
8	805	316
9	813	811
10	814	823
11	815
12	816
13	818
14	820
15	821
Sheet1

thanks a lot

 

[onlyadrafter]

Hello,

can you not format them as ###","

or are you joining the numbers together?

 

[MDuff]

onlyadrafter


I need to Join all the numbers together but as a string

"309,317,801..." etc

thanks

 

[onlyadrafter]

Hello,

are you joining every cell shown, or just each cell in each column?

 

[MDuff]

just each cell in each column

 

[onlyadrafter]

Hello,

for a VB version use

Sub concat()
For MY_COLS = 1 To Range("IV1").End(xlToLeft).Column
    For MY_ROWS = 1 To Cells(65536, MY_COLS).End(xlUp).Row
    If MY_STRING = "" Then
        MY_STRING = Cells(MY_ROWS, MY_COLS)
    Else
        MY_STRING = MY_STRING & "," & Cells(MY_ROWS, MY_COLS)
    End If
       Next MY_ROWS
    Cells(MY_ROWS, MY_COLS).Value = MY_STRING
    MY_STRING = ""
Next MY_COLS
End Sub