merhaba arkadaşlar
bir kolonda yaklaşık 3000 satırlık verim bulumakta. bu verilerin bazıları tekürrürdür. bunları teke indirmem gerekiyor.
yardımlarınız için teşekkürler
Alternatif olarak aşağıdaki kodu deneyin. A sütununa göre çalışır ve mükerrer kayıtlara ait satırı tümüyle siler. Bu sebeple denemeyi dosyanızın kopyası üzerinde yapmanızı öneririm.
[vb:1:8b5c7c7dc0]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
MsgBox "işlem tamamlandı"
End Sub
[/vb:1:8b5c7c7dc0]
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.