I would be very thankful if some could help me to write a small piece of code which does exactly the following:
in Row 1: dog cat fish dog mouse duck cat
With CreateObject("Scripting.Dictionary") For row = 1 to 40 '40 is the last column If [the word does not exists] Then 'do nothing and continue Else 'add to the word the number 1 at the end End if Next End With
in Row 1: dog cat fish dog1 mouse duck cat1
I hope it is clear what I am trying to achieve.