Sütundaki Yinelenen Değerlerin Silinmesi

[fotosit]

Merhabalar;

Excelde A sütununda 1,5,7,12,9,5,12 değerlerinin olduğunun varsayalım.Bu değerlerden tekrar eden değerlerin sonuncusu hariç önceki tekrar edenlerin silinmesinin istiyorum yani 1,7,9,5,12 şeklinde sıralanmasını istiyorum.Elimde bir makro kodu var ama bu kod ilk tekrar edilenin saklıyor diğerlerinin siliyor.Benim istediğim sonuncu tekrar edeni saklasın,öncekileri silinsin.Elimdeki kod şöyle :


Sub MÜKERRER_KAYITLARI_SİL()
For X = [A65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & X), Cells(X, "A")) > 1 Then Rows(X).Delete
Next

End Sub


yardımlarınızı bekliyorum,şimdiden teşekkürler...

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

For X = [A65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A" & X & ":A65536"), Cells(X, "A")) > 1 Then Rows(X).Delete
Next