Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Rows to Columnsq
I have a large number of rows that are made up of approximately 5000 records
with 10 rows per record. I want to take every ten rows and distribute it into separate columns , and do that in each following row for each of the next records. What is the easiest way to do that? -- JOE |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Rows to Columnsq
I'm going to do this using 20 rows per column since excel 2003 is limited to
256 columns 5000/20 = 250). I'm also assuming the data is in column A and the results will be put starting in column B. Sub splitrows() NewCol = 2 LastRow = Range("A" & Rows.Count).End(xlUp).Row For RowCount = 1 To LastRow Step 20 Range("A" & RowCount & ":A" & (RowCount + 19)).Copy _ Destination:=Cells(1, NewCol) NewCol = NewCol + 1 Next RowCount End Sub "JOE POLLOCK" wrote: I have a large number of rows that are made up of approximately 5000 records with 10 rows per record. I want to take every ten rows and distribute it into separate columns , and do that in each following row for each of the next records. What is the easiest way to do that? -- JOE |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
colating multi rows of data into single rows - no to pivot tables! | Excel Worksheet Functions | |||
"Add/Remove Rows Code" adds rows on grouped sheets, but won't remove rows. | Excel Programming | |||
Copy pasting Rows, but need to Delete any Shapes/Pictures that are within copied rows | Excel Programming | |||
Copy rows of data (eliminating blank rows) from fixed layout | Excel Discussion (Misc queries) | |||
Pivot Tables: How do I show ALL field rows, including empty rows?? | Excel Worksheet Functions |