Duplicates VBA

[emukiss10]

Hello!

Duplicates.

In Column F I have different numbers. The numbers are sorted ASC. I would like to have VBA script:

If a number occure in column F more than once, I want to put "DOUBLE" in column "V" in according row but only for second value and so on (first must not be marked. Colors are just for pointers - does not matter)

Range of my table is dynamic and lastRow should be determined by column F.

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD="align: center"]A[/TD]
[TD="align: center"]F[/TD]
[TD="align: center"]G[/TD]
[TD="align: center"]H[/TD]
[TD="align: center"]V[/TD]
[/TR]
[TR]
[TD="align: center"]someName[/TD]
[TD="align: center"]11[/TD]
[TD="align: center"]data[/TD]
[TD="align: center"]Phone[/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"]someName[/TD]
[TD="align: center"]22[/TD]
[TD="align: center"]data[/TD]
[TD="align: center"]Phone[/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"]someName[/TD]
[TD="align: center"]33[/TD]
[TD="align: center"]data[/TD]
[TD="align: center"]Phone[/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"]someName[/TD]
[TD="align: center"]33[/TD]
[TD="align: center"]data[/TD]
[TD="align: center"]Phone[/TD]
[TD="align: center"]DOUBLE[/TD]
[/TR]
[TR]
[TD="align: center"]someName[/TD]
[TD="align: center"]44[/TD]
[TD="align: center"]data[/TD]
[TD="align: center"]Phone[/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"]someName[/TD]
[TD="align: center"]55[/TD]
[TD="align: center"]data[/TD]
[TD="align: center"]Phone[/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"]someName[/TD]
[TD="align: center"]66[/TD]
[TD="align: center"]data[/TD]
[TD="align: center"]Phone[/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"]someName[/TD]
[TD="align: center"]66[/TD]
[TD="align: center"]data[/TD]
[TD="align: center"]Phone[/TD]
[TD="align: center"]DOUBLE[/TD]
[/TR]
[TR]
[TD="align: center"]someName[/TD]
[TD="align: center"]66[/TD]
[TD="align: center"]data[/TD]
[TD="align: center"]Phone[/TD]
[TD="align: center"]DOUBLE[/TD]
[/TR]
</tbody>[/TABLE]

Please help me

Best Regards
W.

 

[Fluff]

How about

Sub AddDouble()

   Dim Cnt As Long
   
   For Cnt = Range("F" & Rows.Count).End(xlUp).Row To 3 Step -1
      If Range("F" & Cnt).Value = Range("F" & Cnt - 1).Value Then Range("V" & Cnt).Value = "DOUBLE"
   Next Cnt
End Sub

 

[emukiss10]

Perfect. Like always. Thanks!

 

[Fluff]

Glad to help & thanks for the feedback