sütunda geçen aynı kayıtları elemek

[abcd_efe]

merhaba arkadaşlar.
aynı sütunda geçen birçok kayıttan aynı olanların makro ile tespit edilip bir tanesinin kalmasını ve diğer fazla olanların silinmesini nasıl sağlayabilirim yardımcı olursanız sevinirim. şimdiden teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

A sütunu için.

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

 

[Ali]

Bu soru forumda defalarca soruldu.

Arama butonuna mükerrer yazın ve aratın.

Bir örnek eklediğim dosya

Mükerrer (Çift) Kayıt Engelleme,Sayma Örnekleri