How to note in adjacent cell if cell value is duplicate?

[Human_doing]

Hi all,

Can anyone please provide the VBA to do the following:

What I'm looking to do is loop through every cell in column A that has an entry, and if that entry has already showed up in the searching of the loop, add a Y in the cell 2 columns to the right i.e. if A10 is a duplicate of A9, a 'Y' is entered in cell C10.

Any help much appreciated,

Thanks

 

[gsistek]

I think a formula will be easier.
In C2:

=IF(ISERROR(MATCH(A2,$A$1:A1,0)),"","Y")

Then drag it down

 

[VoG]

No need for VBA. In C1 copied down

=IF(COUNTIF(A:A,A1)>1,"Duplicate","")

 

[Human_doing]

Hi thanks for getting back to me but these formulae aren't quite what I'm looking for, sorry I should've clarified one thing, I am looking for the info to be added to the relevant cell for only the duplicate copies i.e. if there were 3 occurences, there would be nothing for the first one but 'duplicate or 'Y' would be added for occurences 2 and 3?

Thanks

 

[Human_doing]

Hi actually yes it does work, many thanks for your help really appreciated.