Is there a way to use VBA code to take data in a cell and create a new row (TXT to ROW?)

Hello everyone. I have some data that has a uniquie identifyer by row but populated one cell within that row with multiple employee 's that I would like have its own row. Is there a formula or setting I can utilize? Or is VBA my only option. See attached WKP for example.

Cheers!

Originally Posted by protonLeah

Try text-to-columns:
Select delimited,
Select Delimiters Space & other
in the other box type Alt+0010 (i.e. new line character)
Hit Next and choose "text" for each column

WORKED GREAT! Thanks so much!

Great suggestion protonLeah!

Mustangs, you could also use the VBA split function to get each employee number on a unique row:

Sub myMacro()

    Dim Rng As Range, c As Range
    Dim cLines As Variant
    Dim i As Long, j As Long
    Dim count As Long

    With Sheet1
        Set Rng = .Range(.Range("B2"), .Range("B2").End(xlDown))
        lRows = Rng.Rows.count
        For Each c In Rng.Cells
            cLines = Split(c.Value, vbLf)
            count = count + UBound(cLines) + 1
        Next c
        For i = 1 To count
            cLines = Split(Rng.Cells(i, 1).Value, vbLf)
            For j = LBound(cLines) To UBound(cLines)
                If j = 0 Then
                    Rng.Cells(i, 1) = CLng(cLines(j))
                Else
                    .Rows(Rng.Cells(i + j, 1).Row).Insert Shift:=xlDown
                    Rng.Cells(i + j, 1) = CLng(cLines(j))
                End If
            Next j
        Next i
    End With
    Set Rng = Nothing

End Sub