Text to columns

[Figboot]

Please see attachment for full example.

I have a list of jobs where multiple tasks (Service) were completed. I need to change a row of cells that is formatted like this:

Job | Service
12345 | SUPP,EXT,EE

...and convert it to this:

Job | Service
12345 | SUPP
12345 | EXT
12345 | EE

Thanks...

[JBeaucaire]

This would require VBA to do properly.

Here's a macro for expanding rows of data to multiple rows parsing out the delimited values in one column while duplicating all the others.

Rows to Columns - Part 2

Just edit the Col = 3 code to Col = 4 (for column D if that is correct) and run it on a copy of your data, should do what you want. There's a sample workbook too you could drop your data into and test it out.

[Figboot]

Quick question...in the process of learning VBA here. Attached is the worksheet from the link. On the "Part 2" tab, everything works great as is with the provided data. But, in the data I need to insert, the column that will need to be "parsed" is column L as oppsed to C. What do I need to alter in the code in order to make this work correctly?

Thanks again for the assistance.

[Figboot]

Okay...I figured out how to change the column. But now when I try to run the macro on a list of data, it will return with an error on this row of code:

Rows(Rw + 1 & ":" & Rw + UBound(MyArr)).Insert xlShiftDown

How can I alter this to allow for in excess of 2k rows of data?

Thanks again.

[Figboot]

Okay...I think I figured it out. I had an issue with my headers. Sorry for the extra posts!

[JBeaucaire]

Always feels good to work out the little details, doesn't it? Good job. Glad the macro worked out for you.