Sub blah()
Set Rng = Range("E11:E21") 'this is the range of cells you want to process.
For Each cll In Rng.Cells
If Application.CountIf(Range(Rng.Cells(1), cll), cll.Value) > 1 Then cll.ClearContents
Next cll
End Sub
If you just don't want to see the value, you could use conditional formatting over A1:A11 with a formula of =COUNTIF($A$1:$A1,$A2) and set the font colour to white.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.