sorting data

[Hellomoto]

I have a column of data that repeats every 10 rows. that is, the data type
is repeated every ten rows. I want to reorganize the data in that column into
10 columns (one column for each row). How can i accomplish this?

example: I want to distribute column A:
column A
date1
name1
age1
date2
name2
age2
etc...

into separate columns:

Column A Column B Column C ...etc
date1 name1 age1
date2 name2 age2

Thank you in advance

 

[Don Guillett]

One way. You could also do with a loop within the loop
Sub transposeem()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 3
Cells(i, 1).Resize(3).Copy
Cells(i, 2).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Next i
Columns(1).Delete
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[Ashish Mathur]

Hi,

Download and install ASAP utilities (simply Google ASAP utilities). Then
create a copy of the data range. Now select the data and go to ASAP
utilities > Columns+Rows > Transpose column in multiple steps. Type number
3 in the box and click on OK