Find duplicate by group in column

[marreco]

Hi
I need find duplicate (each group separeted by blanck cell) and write in adjacent cell in column C.

Thank you!!!

 

[NARAYANK991]

Hi ,

Please upload a workbook with enough data in it.

Narayan

 

[jindon]

Try

Sub test()
    Dim r As Range
    For Each r In Range("a2", Range("a" & Rows.Count).End(xlUp)).SpecialCells(2).Areas
        r.Offset(, 2).Value = r.Parent.Evaluate("if(countif(" & r.Address & "," & r.Address & ")>1,""GroupRepeated"","""")")
    Next
End Sub

 

[marreco]

Hi.
very nice!

Thank you!!!!!!!!!!!!