VBA: remove duplicates from cell or string

Hi all,

I've got a bit of a 'simple problem, simple solution' black-out here, so posting the question here

I've got a cell that contains something along the lines of:
Pouch:Delicious:Fresh:Selection:Jelly:Cat Food:Dry:Happy Cat

Now I loop through a number of strings, some of which contain duplicates of words that are already in the cell, for example, one string might be:
Pouch:Tasty:Fresh:Selection:Jelly:Cat Food:Dry:Happy Cat:Bag
While another might be:
Bag:Happy Cat:Fresh:Organic:Selection:Wet:Cat Food:Dry

While looping through my strings in VBA, I'd want to end up with only the unique words in the cell, so ultimately:
Pouch:Delicious:Fresh:Selection:Jelly:Cat Food:Dry:Happy Cat:Tasty:Bag:Organic:Wet

Assume the strings are one string with the colons included. I could split and loop through the splitted results, but would prefer to replace / remove any duplicates and add what's left to the cell.

What would be the most time-efficient way to do this?
Thanks!

Jasper

I was thinking of a dictionary - but how would I go about this.
Essentially I'm parsing a (large) JSON dataset, so no range - all from strings in VBA.

I am iterating through a JSON object through hundreds of keys, each of the keys has a string as exampled.
I am able to identify the string, so could say "dictionary key (identifier) = value", but my problem would be - how would i add the unique values to the value when I encounter the same key?

So let's say, I add dictionary "Jasper", with value "Pouch:Delicious:Fresh:Selection:Jelly:Cat Food:Dry:Happy Cat", how would I add just the "Tasty" and "Bag" to that value when I encounter "Pouch:Tasty:Fresh:Selection:Jelly:Cat Food:Dry:Happy Cat:Bag" (as that's one string / json key value).

Thanks!

Jasper

Would this be something you could use?

Please Login or Register  to view this content.