Need help with a macro!

[mr.durden]

Hi there,

I have a spreadsheet which has been awkwardly formatted by a client with over 50,000 rows. I've tried creating my own macro to automate the work but it just won't seem to work (i'm probably missing something obvious).

At the moment the data looks like this:

[TABLE="width: 377"]
<colgroup><col><col><col></colgroup><tbody>[TR]
[TD]00229268[/TD]
[TD]Example 1[/TD]
[TD]6089+8038[/TD]
[/TR]
[TR]
[TD]00157910[/TD]
[TD]Example 2[/TD]
[TD]6090+6274[/TD]
[/TR]
</tbody>[/TABLE]

I want it to look like this:

[TABLE="width: 377"]
<tbody>[TR]
[TD]00229268[/TD]
[TD]Example 1[/TD]
[TD]6089[/TD]
[/TR]
[TR]
[TD]00229268[/TD]
[TD]Example 1[/TD]
[TD]8038[/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="width: 377"]
<tbody>[TR]
[TD]00157910[/TD]
[TD]Example 2[/TD]
[TD]6090[/TD]
[/TR]
[TR]
[TD]00157910[/TD]
[TD]Example 2[/TD]
[TD]6274[/TD]
[/TR]
</tbody>[/TABLE]


At the moment I am copying and inserting endlessly. Please help me!

Thanks

 

[mr.durden]

Hi Tiger,

Thanks for this. I tried to run it but it brought up a debug error on this line of code:

<code>For varNum = Split(Cells(rIndex, strSplitCol).Value, "-")(0) To Split(Cells(rIndex, strSplitCol).Value, "-")(1)</code>

Any ideas?