Birden Fazla Değerleri silme

[ellefson]

Merhabalar, arkadaşımın şöyle bir sorunu var, yardımcı olursanız sevinirim.

"excelde bir tablom var. nihat@nihat.com diye mesela 5 tane var bunlardan dördünü silmesini ve bunun gibi her kayıttan tek kalmasını sağlayabilirmiyiz."

 

[Necdet]

Merhaba,

Ekteki dosyayı inceleyiniz. A sütununda Benzer olan kayıtları siliyor.

Herhangi bir sıralama yapmadan A sütununda çift kayıt bulduğunda siler.

Public Sub Benzer_Sil()
Application.ScreenUpdating = False
For i = [a65536].End(3).Row To 2 Step -1
     j = Application.WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A"))
     If j > 1 Then Rows(i).Delete
Next i
End Sub