Text to Rows

**srf1800** · 10-25-2011, 12:05 AM

I have a workbook with a column that has a text string with multiple entries delimited by "**" and I would like to use a macro to 1) make each delimited entry its own row and 2) copy other adjacent fields downward into newly created rows. I know this is topic has received substantial input here already but I am very new to VBA and the code I've been able to find does not quite suit my needs. A brief example of the data is as follows (sorry if the spacing doesn't turn out):

Native format:

ID |Delimited field |GroupID
685042 |251Aa:CCC** 331:C** 332A:CC |G329

Desired format:

ID |Delimited field |GroupID
685042 |251Aa:CCC |G329
685042 |331:C |G329
685042 |332A:CC |G329

In the real workbook see attached, there are more columns than I have listed here. The referenced macro correctly takes care of the delimited column, but fails to copy information down into newly created fields (eg, "ID" and "GroupID" fields). I know this will be real simple for some of you, but its beyond me. Please see attached workbook for the real data. Sorry if this issue is redundant and has been covered elsewhere...

The output is probably best to a new sheet, I suppose.

Thanks!!

**watersev** · 10-25-2011, 04:09 AM

hi, srf1800, please check attachment, save the file and run code "test"

**srf1800** · 10-25-2011, 10:22 AM

Wonderful script, watersev! It worked like a charm. Thanks.

**watersev** · 10-25-2011, 01:54 PM

if the issue is solved, please mark the thread as Solved:

Click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Edit button will not appear -- ask a moderator to mark it.