Breaking up cell's content into separate rows

drkidd22 · Nov 18, 2013

Hello,

I have a workbook with a bunch of data that I need to break up into separate cells in order to be able to sort. currently a single cell may contain 1, 2, 3, line items, I want to be ale to put them in single rows/cells. I already tried but it's not working properly, see attached file.

snb · Nov 19, 2013

Code:

Sub M_snb()
     sn = Cells(1).CurrentRegion

     For j = 1 To UBound(sn, 2)
        sp = Split(Join(Application.Transpose(Application.Index(sn, 0, j)), vbLf), vbLf)
        Cells(1, j).Resize(UBound(sp) + 1) = Application.Transpose(sp)
     Next
End Sub

Breaking up cell's content into separate rows

drkidd22

New member

Attachments

snb

New member