Please Help

[Bassai]

Hi

I need to move data from 5 rows in one column and to separate columns. The data looks like this

Infinity Auto Import
20 Puriri Street, New Lynn, Auckland
09 9512882
View dealer listings
IV Cars
90 Portage Road, Otahuhu, Auckland
09 9512843
But needs to be sorted like this:
Column A	Column B	Column C
Infinity Auto Import	20 Puriri Street, New Lynn, Auckland	09 9512882
IV Cars	90 Portage Road, Otahuhu, Auckland	09 9512843
I would appreciate your help

<colgroup><col><col><col></colgroup><tbody>
</tbody>

 

[ranman256]

adjust as needed...

Sub ParseFile()
Dim vFile, vLine
Dim i As Integer
Const Q = """"
vFile = "C:\temp\textfile.txt"
Range("a2").Select
i = 1
Open vFile For Input As #1 
While Not EOF(1)
  Line Input #1 , vLine
  vLine = Trim(vLine)
  
  If InStr(vLine, "View dealer listings") > 0 Then vLine = ""
  
    If vLine <> "" Then
        ActiveCell.Offset(0, i - 1).Value = vLine
        
        i = i + 1
        If i = 4 Then
          i = 1
          ActiveCell.Offset(1, 0).Select  'next row
        End If
    End If
Wend
Close 1
End Sub

 

[Bassai]

Thanks for trying to help but um.... what is this?