Farklı satırlarda aynı hücreyi içeren satırları silme

[arkelanj]

Arkadaşlar Merhaba ,

Elimde 9416 satırlı ve 14 sütünlu bir excel dosyası var.Bazı satırlarda A hücreleri aynı olmalarına onu takip eden satır hücreleri farklı olabiliyor.
Benim istediğim 9000 satırda a sütünundaki hücreleri aynı olan satırları bulup onlardan birini tutup diğerlerini silmek.

İlginiz için şimdiden teşekkürler.

Excel 2000 ve 2007 kullanıyorum

 

[Levent Menteşoğlu]

Aşağıdaki kodu dosyanmızda çalıştırın. Ancak kodu mutlaka asıl dosyanızın bir kopyası üzerinde deneyin. Sonradan silinecek veriler nedeniyle kaybınız olmasın.

sub sil()
application.screenupdating=false
for a=[a65536].end(3).row to 1 step -1
if worksheetfunction.countif([a:a],cells(a,"a"))>1 then rows(a).delete
next
end sub