Need VBA script to merge adjacent cells

Hello,

I would appreciate help to merge a few cells.

There can be anywhere between 2 and 5 identical adjacent ones on the same row, I would like the VBA script to merge all those identical ones and keep the text.

Here is an example of the before and after:
Excel.jpg

Thanks for your help.

Does this help?

Please Login or Register  to view this content.

Thank you John for your help.

The script appears to clear the replicate values, but does not merge the cells that used to contain the replicate values.

Can you attach a sample. Showing a before and after which depicts the result that you want?

Sure,

Here is the simplified example:

Excel example.xlsm

Thanks

Oops. Sorry, I completely misread. Will review further.

Maybe:

Please Login or Register  to view this content.

Thank you very much, this works perfectly.

I am embarrassed to ask, but I can't figure it out, in this code where should I specify the name of the sheet this should be run on? I am adding this to the end of another script and the active sheet at the end is not the one it should be run on.

Maybe add:

Please Login or Register  to view this content.

I had assumed the activesheet at first.

Thanks again for all your help, all done.

The funny thing is that I start with merged cells, but the script could not handle the rest without unmerging them and filling the info in each unmerged cell, so I needed to re-merge them at the end.

You're welcome. Glad to help out and thanks for the feedback. If you feel your problem has been resolved, then please mark this thread as solved.