Sütundaki aynı değerlerin silinmesi

[ERKAN1974]

Selam,
C Sütununu kontrol edip birden fazla olan isimlerin süzülerek sadece 1 tane kalmasını ve kalanların yine c sütununa yazılmasını fazlalıkların silinmesini nasıl sağlarım. Forumda görmüştüm ama bulamadım. Eski dosya olduğu için silindimi acaba.

Yardımcı olucaklara teşekkürler.

 

[Necdet]

Merhaba,

Sub CiftKayitSil()
Dim i As Long
Application.ScreenUpdating = False
For i = [C65536].End(3).Row To 2 Step -1
    If Application.WorksheetFunction.CountIf(Range("C1:C" & i), Cells(i, "C")) > 1 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
MsgBox "Çift kayıtlar silinmiştir....", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub