Move Column data to rows

[poppy]

Hi Sirs and Madams

I have a list of roughly a thousand numbers in one column, I would like to know how to take those numbers and put them into one row and column
with only a comma seperating them.

e.g.

17205
17206
17207
17216
17218
17219
17221
17225

--> 17205,17206,17207,17216,17218,17219,17221,17225

Thank you

Kind Regards

[Jim Rech]

This may get you started. Select the range of numbers before running this
and change the output cell from B1 to your cell.

Sub a()
Dim ValStr As String
Dim Cell As Range
For Each Cell In Selection
ValStr = ValStr & Cell.Value & ","
Next
ValStr = Left(ValStr, Len(ValStr) - 1)
Range("B1").Value = ValStr
End Sub


--
Jim
"poppy" <[email protected]> wrote in
message news:[email protected]...
|
| Hi Sirs and Madams
|
| I have a list of roughly a thousand numbers in one column, I would like
| to know how to take those numbers and put them into one row and column
| with only a comma seperating them.
|
| e.g.
|
| 17205
| 17206
| 17207
| 17216
| 17218
| 17219
| 17221
| 17225
|
| --> 17205,17206,17207,17216,17218,17219,17221,17225
|
| Thank you
|
| Kind Regards
|
|
| --
| poppy
| ------------------------------------------------------------------------
| poppy's Profile:
http://www.excelforum.com/member.php...o&userid=11453
| View this thread: http://www.excelforum.com/showthread...hreadid=491450
|

[poppy]

Hi Jim


Thank you very much

Kind Regards