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.

A	F	G	H	V
someName	11	data	Phone
someName	22	data	Phone
someName	33	data	Phone
someName	33	data	Phone	DOUBLE
someName	44	data	Phone
someName	55	data	Phone
someName	66	data	Phone
someName	66	data	Phone	DOUBLE
someName	66	data	Phone	DOUBLE

<tbody>
</tbody>

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