Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Column List to Multiple Columns
I am using Microsoft Excel 2007. I have an account number in C:2.
Associated with this account number is a set (in a column) of 3 digit numbers in W:2, W:3, W:4, W:5. When there are multiple 3 digit numbers in Column W, there are blank spaces under C:2. When the next account number appears (C:6), it has it's own set of 3 digit numbers. I need to take each 3 digit number associated with the account number and move them into adjacent columns on the same line as the account number. So, W:3 would move to X:2, W:4 would move to Y:2, W:5 would move to Z:2 and so on. I assume I need a VB solution. Can anyone help me with this? Thank you very much in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Column List to Multiple Columns
Sub Macro1()
'assumes target sheet is ActiveSheet 'assumes data starts in row 1 'works in Excel 2002 Dim iCt As Integer Dim iRow As Integer iCt = 2 iRow = 1 iCol = 24 Do If Range("C" & iCt) = "" Then Cells(iRow, iCol) = Range("W" & iCt) Range("W" & iCt).Clear iCol = iCol + 1 Else iCol = 24 iRow = iCt End If iCt = iCt + 1 Loop Until Range("W" & iCt) = "" End Sub Hth, Merjet |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Column List to Multiple Columns
On Jan 8, 11:20*am, merjet wrote:
Sub Macro1() 'assumes target sheet is ActiveSheet 'assumes data starts in row 1 'works in Excel 2002 Dim iCt As Integer Dim iRow As Integer iCt = 2 iRow = 1 iCol = 24 Do * * If Range("C" & iCt) = "" Then * * * * Cells(iRow, iCol) = Range("W" & iCt) * * * * Range("W" & iCt).Clear * * * * iCol = iCol + 1 * * Else * * * * iCol = 24 * * * * iRow = iCt * * End If * * iCt = iCt + 1 Loop Until Range("W" & iCt) = "" End Sub Hth, Merjet What changes to the code have to be made if the data begins on Row 2? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Column List to Multiple Columns | Excel Worksheet Functions | |||
Column List to Multiple Columns | Excel Discussion (Misc queries) | |||
move list of numbers from one column to multiple columns | Excel Discussion (Misc queries) | |||
Change a Column list into multiple rows & columns | Excel Worksheet Functions | |||
How do I create multiple columns from a one-column list in Excel? | Excel Worksheet Functions |