Aynı olan satırların bulunup silinmesi

[Guru]

Ã?ncelikle Herkese Merhaba,

Beni problemim,

Makro ile sıralatıp bir düzene soktuğum sayfanın devamında, A sutunundaki tekrar eden bazı satırları bulup nasıl silebilirim ?

Cevabı forumlarda aradım ama bulamadım. Yardımcı olursanız sevinirim.

Saygılarımla.

 

[danersin]

İki şekilde yapabilirsizini.

Birincisi Veri>Süz>Gelişmiş Süzgeç kullanarak
Bu menüde Listeyi yerinde süz yada Başka bir yere kopyala yı seçebilirsiniz, başka yere kopyalayı seçerseniz bunun adresinide Hedef kutusuna girmelisiniz. Ã?lçüt aralığını boş bırakarak, en alttaki Yalnızca benzersiz kayıtlar'ı işaretlersiniz...Ok


ikinciside aşağıdakine benzer bir kod yazmak. Çok uzun listelerde biraz yavaş olabilir gerçi bu.. şu an aklıma bu ikisi geldi.



[vb:1:a3be2f2e5b]Sub tekrar()
application.screenupdating=false
son = Cells(1, 1).End(xlDown).Row
For i = son To 1 step -1
For j = 1 To i - 1
If Cells(i, 1) = Cells(j, 1) Then Rows(i).Delete
Next j
Next i
End Sub[/vb:1:a3be2f2e5b]