Delete repeated words in every cells in a Range

Hello!
I have thousands of cells with repeated terms, and would like to delete the repeated/duplicate words in the cells without deleting the entire rows.

I found the following VBA code (below) on this forum that comes close to achieving this end but with some limitations that I need help with.
Here is an example of a cell content: Measles, Measles, Measles, Measles, Measles, Measles, Measles, Dengue, Dengue, Dengue, Dengue, Dengue, Dengue, Dengue

Running the code gives the following: Measles, , , , , , , Dengue, , , , , ,

But ideally, I would want to just have Measles, Dengue

Any help would be much appreciated. Thanks

Please Login or Register  to view this content.

Please use 'wrap' option while inserting any code

Sorry about that. Here is the code wrapped.

Please Login or Register  to view this content.

Hello and welcome to the forum,

Please add code tags by highlighting your code and pressing on the pound sign (#) or adding [Code] before your code and [/ Code] after your code (but remove the space between the forward slash and the word Code.

Once you comply, I can post the updated code.

Thanks.

abousetta

Don't forget to do this for post #1 also:

Here is the updated code. You don't need to use RegScript, only the scripting dictionary:

Please Login or Register  to view this content.

Hope this helps.

abousetta

Yes, scripting does wonders. I'll be honest I don't know RegEx but you could probably accomplish the same thing there also.

Thanks for marking the thread as solved. Good luck.