Macro for txt list to xls table

[MollieR]

I need a way to take a list of people's info (name, address, etc) and put it into sorted columns. The step I really need help with is getting Excel to go from a single column of listed info to multiple columns, each containing a single contact.

The number of rows per contact varies, but there is always a single empty row between contacts. Any thoughts?

Thanks!

 

[Domski]

Try this code:

Sub test()
Dim myRange As Range, lastRow As Long, writeRow As Long, writeCol As Long
writeRow = 1
writeCol = 1
With Sheets("Raw Data")
    lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    
    For Each myRange In .Range("A1:A" & lastRow)
    
        If myRange = "" Then
        
            writeRow = writeRow + 1
            writeCol = 1
        
        Else
        
            Sheets("Output").Cells(writeRow, writeCol) = myRange.Value
            writeCol = writeCol + 1
        
        End If
        
    Next myRange
    
End With
End Sub

Takes the data from sheet named Raw Data and writes to one called Output.

Dom

 

[MollieR]

That's perfect! Thanks very much!