Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Moving data from column A to Columns B,C,D,E
Hi Michael:
This should do the job provided that the addresses are as specificed in fixed blocks of 4 cells with a line between them. Sub moveaddresses() Dim lRow As Long lRow = 1 With ActiveSheet 'get first row Do While (.Cells(lRow, 1) = "") lRow = lRow + 1 Loop Do While (.Cells(lRow, 1) < "") ' could do in for loop but only 3 cells .Cells(lRow, 2) = .Cells(lRow + 1, 1) .Cells(lRow, 3) = .Cells(lRow + 2, 1) .Cells(lRow, 4) = .Cells(lRow + 3, 1) .Rows(lRow + 1 & ":" & lRow + 4).Delete lRow = lRow + 1 Loop End With End Sub -- Hope this helps Martin Fishlock, Bangkok, Thailand Please do not forget to rate this reply. "Michael P." wrote: My data looks like this: A. Rafanelli Winery tel. +1 707.433.1385 4685 W. Dry Creek Road Healdsburg, CA 95448 I want it to look like this: A. Rafanelli Winery tel. +1 707.433.1385 4685 W. Dry Creek Road Healdsburg, CA 95448 The data set is every four rows with a blank row inbetween is there a macro out there for this other than copyPastespecialtranspose... A million times over |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
moving several columns into 1 continuous column | Excel Worksheet Functions | |||
Moving data from row to columns | New Users to Excel | |||
Moving data between columns | Excel Discussion (Misc queries) | |||
Moving row data to columns in a one to many | Excel Programming | |||
Moving data from 3 columns to next 3 | Excel Programming |