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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.