Hi there,
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
Code
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
Display More
Result
in Row 1: dog cat fish dog1 mouse duck cat1
I hope it is clear what I am trying to achieve.
Thanks