eşit ise satırı sil

[kimfx]

merhaba arkadaşlar,
çalışırken zaman kazanmak için bir makro oluşturmaya çalışıyorum, ancak başarılı olduğum söylenemez.
yapmak istediğim;
..............A........B.........C
1............50...... **....... **
2............50...... **....... **
3............20...... **....... **
4............10...... **....... **
5............30...... **....... **
6............30...... **....... **
7............30...... **....... **

A1 hücresini hemen altındaki hücre ile (A2) karşılaştırsın eğer eşitse birisini (tüm satırı) silsin eğer eşit değilse bir alttaki hücreye geçsin ve aynı işlemleri tekrarlasın, yukarıda görülen örnekte A sütununda bulunan sayılardan birer tane kalacak gerisi silinecek. İlginize şimdiden teşekkür ediyorum.

 

[Ali]

Aşağıdaki kodları deneyiniz.

Sub sil()
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Rows(a).Delete
Next
End Sub

 

[kimfx]

Teşekkür ediyorum. Çok işime yarayacak