Sub MakeOneCol()
Dim ThisRow As Range
Dim NewVal As String
Dim i, j As Integer

Set ThisRow = ActiveCell

For i = 0 To 9
NewVal = ""
For j = 0 To 49
NewVal = NewVal & Format(ThisRow.Offset(i, j), 0)
Next j
ThisRow.Offset(i, 0) = NewVal
Next i
End Sub


You will need to decide what you want to do with numbers and if you
want spaces in-between each entry from each cell. Also, if there is a blank
cell and you are putting spaces in-between do you want two spaces?
This code starts at the active cell and uses the 10 rows and 50 cols.
You can do anything you like to decide what range to process but
you should be able to modify this code to get the results you want.
If you need more help just ask. If all cells are numbers in this example
you will get a totally different result than if some are not numbers.

Chrissy.


"T.K Kullervo" wrote in message ...
Hi,
Is there a way to get all the text from a row to the First column of the
row. I tried going throw all the cells in a loop and saving the values of
the A and B columns and concatting them together in A column. This works but
its very slow. Is there some other way to do this text to columns backwords?