removing duplicates

[markster]

Hi - I have a 50,000 lines of data. I just need a bit of macro code to look at column C and remove any duplicate lines. i.e if the full name in column C is a duplicate then to remove the row so I ensure that I have a list without duplicates.
Thanks

 

[Peter_SSs]

I'm not sure that we have a full picture of what you have or what you are trying to achieve, but have a look at Data|Filter|Advanced Filter...|Unique records only and see if that is any use

 

[Lewiy]

Try this:

Sub Duplicates()
Dim a As Long
Dim c As Long
a = Cells(Rows.Count, 3).End(xlUp).Row
For c = a To 1 Step -1
    If WorksheetFunction.CountIf(Range("C1:C" & c), Cells(c, 3)) > 1 Then
        Rows(c).Delete shift:=xlUp
    End If
Next c
End Sub