vnascimento,
You did not say what column or starting cell your long strings are in.
I assummed that the raw data begins in Sheet1, cell A1 (the macro can be re-written).
Detach/open workbook ShuffleData w1 wT wR VP - vnascimento - EF830445 - SDG16.xls and run macro ShuffleData.
I used you example string, plus the same string re-arranged, and then duplicated the two rows down to row 400. The macro re-arranged the strings per your requirements in 0.637 seconds on my Lenovo T61 laptop computer.
The macro uses a Temp worksheet to do its work. And, puts the results in worksheet Results.
Have a great day,
Stan
Bookmarks