Combine Many Cells Into One Cell

[Legacy 436357]

Hello,

I have test equipment numbers in separate columns. How can I combine them into one column with the numbers separated by commas and one space after each comma?

Note some columns don't have numbers.

Thank you

Excel Workbook
	E	F	G	H	I	J
112	663
113	1372	1240	355	105
114	663	1422	1408
115	1180	1417
116	922	1365	1424
117	663
118	1379	1380	1415	1373	883	884
119	663	801
120
121	1217	1218	1240	1365
122	663	801	1415
123
124	556	1018	1418
125	556	1018	1418
126	556	1418
127	1202	697
128	642	144	9	1415
Sheet1

 

[jondavis1987]

=e113&", "&f113

 

[tyija1995]

Hey, you can use a function called TEXTJOIN with the delimiter as ", "

=TEXTJOIN(", ",TRUE,E112:E128) for example.

 

[Fluff]

What version of Xl are you running?

 

[Repush]

try

Set MyRange = Application.Selection
For Each c In MyRange
     cTot = cTot + ", " + CStr(c.Value)
    c.Value = ""
Next c
MyRange.Cells(1, 1) = Mid(cTot, 2, 1000)

 

[Legacy 436357]

I have 2010 version of Excel

 

[Legacy 436357]

A few samples like this. Is it possible?

Excel Workbook
	L
115	1180, 1417
116	922, 1365, 1424
117	663
118	1379, 1380, 1415, 1373, 883, 884
119	663, 801
Sheet1

 

[jondavis1987]

=if(e113>0,e113&", ","")&if(f113>0,f113&", ","")&if(g113>0,g113&", ","")&if(h113>0,h113&", ","")&if(I113>0,I113&", ","")&if(J113>0,J113&", ","")&if(K113>0,K113,"")

 

[Fluff]

How about

Function xjohnson(Rng As Range) As String
   xjohnson = Replace(Application.Trim(Join(Application.Index(Rng.Value, 1, 0), " ")), " ", ", ")
End Function

Used like
=xjohnson(E2:J2)

 

[Legacy 436357]

Jondavis1987,

This is close but it has an extra comma at the end of the last number.