Question : excel macro that will take a one column flat file and move it into rows

I have imported a text file of addresses which are all in one colum. I found the following macro that will move all the address into rows, but some of the address have 4 lines and some have 5 lines and this throws off the reorganizing. Does anyone know a way that this macro can find the end of the address then enter it in as a row. The addresses all have a blank row between them.
Thanks,

Bill

X = WorksheetFunction.CountA(Range("A:A")) / 5
For i = 1 To X
Cells(i, 2).Resize(, 5) = Application.Transpose(Cells((i - 1) * 5 + 1, 1).Resize(5))
Next i
End Sub

Answer : excel macro that will take a one column flat file and move it into rows

Bill,

There you go..your workbook for your reference where after sheet shows you the data once the macro is run...

Saurabh...

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

           
           
             Sub move()
    Application.ScreenUpdating = False
 
 
    Dim a As Long, i As Long, x As Long
    a = 1
    i = 2
    Do Until i > Cells(65536, "a").End(xlUp).Row
        x = i + 1
 
        Do Until Cells(x, "a").Value = ""
            Cells(i, "a").Offset(0, a).Value = Cells(x, "a").Value
            Rows(x).Delete
 
            a = a + 1
 
        Loop
        a = 1
        i = x
        i = i + 1
    Loop
 
 
    Cells.Select
    Selection.EntireColumn.AutoFit
 
    Application.ScreenUpdating = True
End Sub
           
         

Open in New Window Select All

sampledata.xls (21 KB) (File Type Details)

data