Splitting String at Blank Empty Row

[ESACAWIP]

hi, hope all is good

I am given the following, all in a single cell:

aaa
bbb
ccc

ddd
eee
fff

zzz
eee
eee


can someone help with a macro where if I select the entire column, it would split each cell by the blank row into consecutive columns?
aaa ddd zzz
bbb eee eee
ccc fff eee



Much appreciated!

 

[Rick Rothstein]

Does this bit Cells(R, "B").Resize(, 3) allows for expanding up to 3 Columns?

Reasons I ask, 1, I don't know
2, OP says he has Strings up to 20 separate substings.

Whoops, you caught me sleeping! I went with the posted example and completely forgot the OP said that. Thanks for noticing this!!! Here is the corrected code...

Sub SplitOnDoubleLineFeeds()
  Dim R As Long, Arr As Variant
  Application.ScreenUpdating = False
  For R = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    Arr = Split(Cells(R, "A").Value, vbLf & vbLf)
    Cells(R, "B").Resize(, 1 + UBound(Arr)) = Arr
  Next
  Application.ScreenUpdating = True
End Sub