Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make 2 long columns into 8 shorter columns
I have 2 long columns of numbers on sheet1, columns A&B, sorted descending
by column A. The number of rows of data will vary according to what is imported. I want to put them on sheet2 for printout, in the same order but as 8 columns wide, starting at B5. Basically it is a copy/paste the first 1/4th of sheet1, columns A:B to sheet2 B5. Then the second 1/4th of sheet1 to sheet2 E5, etc. Any ideas on how to get this started would be greatly appreciated. TIA, Mike |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make 2 long columns into 8 shorter columns
Mike,
Start by counting the number of rows in the source list (call this number RowCount) and divide this number by 4. The first 3 'quarters' will have a column length (ColLength) of Int(RowCount/4). The last 'quarter' will have a column length of RowCount - 3*ColLength Using these numbers, define the 4 ranges as rngSource1, rngSource2, .... Do the same to define the destination ranges: rngDest1, rngDest2, .... So, for example, if the original list has 17 rows, then ColLength will be 4 and the last column will have a length of 5. rngSource1 will be Range(Cells(1,1), Cells(4,2)) and rngDest1 will be Range(Cells(5,2), Cells(8,3)). You can right this code like this: With Sheets(1) Set rngSource1 = Range(.Cells(1,1), .Cells(4,2)) End With With Sheets(2) Set rngDest1 = Range(.Cells(5,2), .Cells(8,3)) End With Then "copy" the ranges using rngDest1.Value = rngSource.Value HTH, Shockley "Mike Fogleman" wrote in message ... I have 2 long columns of numbers on sheet1, columns A&B, sorted descending by column A. The number of rows of data will vary according to what is imported. I want to put them on sheet2 for printout, in the same order but as 8 columns wide, starting at B5. Basically it is a copy/paste the first 1/4th of sheet1, columns A:B to sheet2 B5. Then the second 1/4th of sheet1 to sheet2 E5, etc. Any ideas on how to get this started would be greatly appreciated. TIA, Mike |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Make Columns A&B on Sheet2 always equal Sheet1 table columns A&B | Setting up and Configuration of Excel | |||
Make Columns A&B on Sheet2 always equal Sheet1 table columns A&B | Excel Worksheet Functions | |||
putting 2 long columns into multiple columns in excel page and sor | Excel Discussion (Misc queries) | |||
Combine multiple columns into two long columns, Repeating rows in first column | Excel Discussion (Misc queries) | |||
Combine multiple columns into two long columns, Repeating rows in first column | Excel Discussion (Misc queries) |