Merging multiple columns of data into one column of data
Try this - output is in column F
Sub newline()
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For irow = 1 To lastrow
mystr = ""
For icol = 1 To 5
mystr = mystr + Cells(irow, icol) + Chr(10)
Next icol
Cells(irow, "F") = mystr
Next irow
End Sub
"Archangel" wrote:
I have a large spread sheet that I inherited... I need to merge five columns
of text data into one column.
Example:
Before...
A B C D E
The Quick Brown Fox Jumped
After...
A
The
Quick
Brown
Fox
Jumped
Help!
|