Rename Duplicate Cells

[Mldeuser]

Is it possible to have a macro compare the contents in column "C" and were it finds a duplicate entry the macro would add to the first entry "-Free".

For example

CB1270 - Free
CB1270

In the above example the macro would add the "-Free" to CB1270.

The duplicate entries are next to each other.

Thank you

 

[DanteAmor]

Hello,

I now this thread is kind of old but is it possible to modify this such that it effectively counts upwards. Basically so that for first instance I can add ".01" for second instance I can add ".02" and so on?

Thanks,

Try this
Your data in columns C, result in column D

Sub Count_duplicate()
    Dim i As Long
    For i = 1 To Range("C" & Rows.Count).End(xlUp).Row
        Cells(i, "D").Value = WorksheetFunction.CountIf(Range("C1:C" & i), Cells(i, "C")) / 100
    Next
End Sub

 

[ELNERO]

Thanks Dante! That almost does what I want. Ideally what I was trying to get to is such that column C is modified to have ".01" , ".02" , ".03" added on to the end of the column C entry (which is a text entry). So if C7 say is SD-0.01 and its the 3rd cell with SD-0.01 in it then it will be changed to SD-0.01.03. I also have column headers that I don't want to modify!

 

[DanteAmor]

Thanks Dante! That almost does what I want. Ideally what I was trying to get to is such that column C is modified to have ".01" , ".02" , ".03" added on to the end of the column C entry (which is a text entry). So if C7 say is SD-0.01 and its the 3rd cell with SD-0.01 in it then it will be changed to SD-0.01.03. I also have column headers that I don't want to modify!

Try this

Sub Count_duplicate()
    Dim i As Long
    For i = 1 To Range("C" & Rows.Count).End(xlUp).Row
        Cells(i, "D").Value = Cells(i, "C") & Mid(WorksheetFunction.CountIf(Range("C1:C" & i), Cells(i, "C")) / 100, 2)
    Next
End Sub