Macro to just clear repeted words down a column?

[tonywatsonhelp]

Hi Everyone,

I need a macro that can look down column D and remove (just clear contents not delete cell or row) the repeated words so I only have one, the one I want is the first one.

Any ideas???
Thanks

Tony

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG22Mar45
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range("D1", Range("D" & Rows.Count).End(xlUp))
[COLOR="Navy"]For[/COLOR] n = Rng.Count To 1 [COLOR="Navy"]Step[/COLOR] -1
    [COLOR="Navy"]If[/COLOR] Application.CountIf(Rng, Rng(n)) > 1 [COLOR="Navy"]Then[/COLOR] Rng(n).ClearContents
[COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[tonywatsonhelp]

Thanks MickG

I try it out
Tony