Question

I have a spreadsheet that has 2 columns, the first is a unique identifier, the second is a list delineated by the ‘|’ character of people assigned to that case. I am attempting to write a macro that uses text to columns to break out the second column into multiple columns and then copy them all with the corresponding identifier to the bottom of the original columns. I am dealing with about 46,000 rows, and the result will have around 70,000 I would guess. An example is as follows:

Original Data

ColumnA ColumnB  
123     Adam | Jill | Bob
456     Brent | Bob | Betsy | Sam
789     Matt | Adam | Jill

Needed Data

ColumnA ColumnB 
123     Adam
456     Brent
789     Matt
123     Jill
456     Bob
789     Adam
123     Bob
456     Betsy
789     Jill
456     Sam

Answer 1

I think this should do what you want:

Sub test()
    Dim inputRng As Range
    Set inputRng = ThisWorkbook.Sheets(1).Range("A1")

    Dim outputRng As Range
    Set outputRng = ThisWorkbook.Sheets(1).Range("D1")

    While inputRng.Value <> ""
        Dim names As Variant
        names = Split(inputRng.Offset(, 1).Value, "|")

        For Each nme In names
            outputRng.Value = inputRng.Value
            outputRng.Offset(, 1).Value = Trim(nme)
            Set outputRng = outputRng.Offset(1)
        Next

        Set inputRng = inputRng.Offset(1)
    Wend
End Sub

Adjust the inputRng and outputRng to point where you want

All the code does is split the string value in VBA and iterate over that list then move down onto the next row. It keeps going until it finds an empty (Value == “”) cell and then stops.