Hi - new to this forum
I need a little help - i have a single column of data that contains multiple data sets of varying lengths. Each data set is separated by a space. so for example
0.35
0.33
0.21
0.20
0.16
1.61
1.20
0.08
0.51
0.37
0.56
0.70
0.77
0.85
0.67
I need this data separated into multiple columns such that it looks like the following (ignore the dots....i had to put these in)
0.35 0.20 0.37
0.33 0.16 0.56
0.21 1.61 0.70
........1.20 0.77
........0.08 0.85
........0.51 0.67
Does anyone know of a simple automated method to do this.......typically my single column of data could be 14000 cells long......
Many thanks in advance
Ian
'COLUMNS TO ROWS
Here's a macro for merging columns of data to one row matching for column A.
There's a sample sheet you can drop your data into, or add the macro given to your own workbook.
_________________
Microsoft MVP 2010 - Excel
Visit: Jerry Beaucaire's Excel Files & Macros
If you've been given good help, use theicon below to give reputation feedback, it is appreciated.
Always put your code between code tags. [CODE] your code here [/CODE]
“None of us is as good as all of us” - Ray Kroc
“Actually, I *am* a rocket scientist.” - JB (little ones count!)
My apologies, I misread your request... you want Column To Columns, not Column to Rows.... here's a tweak on that macro for you:
Option Explicit Sub ColumnToColumns() Dim i As Long, RNG As Range Application.ScreenUpdating = False Set RNG = Columns("A:A").SpecialCells(xlCellTypeConstants) For i = 2 To RNG.Areas.Count RNG.Areas(i).Cut Cells(1, Columns.Count).End(xlToLeft).Offset(, 1) Next i Set RNG = Nothing Application.ScreenUpdating = True End Sub
Last edited by JBeaucaire; 02-07-2012 at 06:35 PM. Reason: removed column A delete command
_________________
Microsoft MVP 2010 - Excel
Visit: Jerry Beaucaire's Excel Files & Macros
If you've been given good help, use the
Always put your code between code tags. [CODE] your code here [/CODE]
“None of us is as good as all of us” - Ray Kroc
“Actually, I *am* a rocket scientist.” - JB (little ones count!)
Post #3 has been edited.
_________________
Microsoft MVP 2010 - Excel
Visit: Jerry Beaucaire's Excel Files & Macros
If you've been given good help, use the
Always put your code between code tags. [CODE] your code here [/CODE]
“None of us is as good as all of us” - Ray Kroc
“Actually, I *am* a rocket scientist.” - JB (little ones count!)
Thanks so much - that seems to do the trick!!
If that takes care of your need, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.
_________________
Microsoft MVP 2010 - Excel
Visit: Jerry Beaucaire's Excel Files & Macros
If you've been given good help, use the
Always put your code between code tags. [CODE] your code here [/CODE]
“None of us is as good as all of us” - Ray Kroc
“Actually, I *am* a rocket scientist.” - JB (little ones count!)
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Reply With Quote
Bookmarks