Remove Duplicates from Rows

I have a big sheet A1 - BQ 1064 with words in each cell.
I need to remove duplicates in the individual rows (because they often repeat in the every column)
Please consider, I have no knowledge of VBA / Macros, so explain it the most simple way.

Thank you.

dwc

Well just words in a row from A1 to BQ1, and it happen, that the words repeat sometimes, so they should be removed

hmm.. it says unreadable content.

would you have any idea, why I can not read the macros from your file?
The Macro settings are : Enable all Macros.

I was finally figuring out, why it did not run... the VBA seem to be not enabled.
Got to run it now. Wow! this is great!
But... I am very new to Macros; it works in the first row, but how will I make it run all the 1640 rows?

Sorry for such a beginners question!

Hi dwc
try it

Please Login or Register  to view this content.

Thank you nilem, but I am at a total loss.... do I have to select thev range I want the duplicates removed?
I pasted your formula in and run it as macro, but don't see any removal

Please attach your example in the file

this is only a small sample.
The rows go down to 1640 and columns up to BQ

Here's your macro file. Press Alt+F8, select "ertert" and Run.
For example, the second line is removed repeated word "Skyline".
Do you want to delete duplicates in rows or columns?
You just want to clear the duplicate cells or delete them?
It would be better if you could set an example (about 5-10 lines) with the desired result.

Yes, the duplicates should be removed. Not sure, if the empty cell then can be removed as well?
If not, I have to trim all single cells into 1 cell.
I was communicating with somebody in the Philippines and I got following result.
Only problem, the words need to be separated by a coma.

I just tried your xlsm.... WOW!

Well, if I understand correctly, then so (click green arrow in the file)

WOW!! This is great!! But.. the words need to be separated with a coma at the end. (Maybe could also include it in the Macro after the words start with upper case, I need 1 more cell, where all words start with lower case. I think, the function is called =LOWER.