適当な文章（改行可）をセルに貼りつけて、このマクロを実行してみるといいんじゃないかな（棒

gistfile1.vb

Sub ExcelHogan()

Dim base As Range
Dim text, c, x, y

Set base = ActiveCell
text = base.text

For i = 1 To Len(text)
    c = Mid(text, i, 1)
    If c = vbLf Then
        x = 0
        y = y + 1
    Else
        base.Offset(y, x).Value = c
        x = x + 1
    End If
Next i

End Sub