tekrar eden satırları silmek

[ozlem.cg]

ekte yolladığım dosyada bulunan listemde kod sütünundaki tekrar eden satırlarımı silmek istiyorum yardım pls

 

[Necdet]

Dosya eklenmemiş.

 

[ozlem.cg]

ekte gönderiyorum

 

[neverlank]

data(veri) menüsünde remove duplicates işlevi var , işinizi görmesi lazım

 

[Eser Gökay]

Sub mükerer()
For sil = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("b1:b" & sil), Range("b" & sil)) > 1 Then Rows(sil).Delete
Next
End Sub

 

[Necdet]

Merhaba,

Eser Bey çok güzel yanıtlamış, bende Find komutunu kullandım, hangisi hızlı çalışır bilmiyorum açıkcası, denemek gerek.

Sub FazlalariSil()
Dim i As Long
Application.ScreenUpdating = False
For i = [B65536].End(3).Row To 2 Step -1
    Set c = Range("b2:B" & i - 1).Find(Cells(i, "B"), LookIn:=xlValues)
    If Not c Is Nothing Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
MsgBox "Fazlalıkları Sildim......"
End Sub