Çözüldü Belirli aralıklarda yinelenen değerleri kaldırma

[erd5334]

Arkadaşlar merhaba ekte yolladığım dosyada resimde gösterdiğim alan belirli aralıklarda tekrar edilmiş. bunları kolay yönden silme olasılığım var mıdır. sağlıklı filitreleme yapmamı engelliyor.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz. A sütununda sayı olmayan ya da boş olan satırları siler:

Sub sil()
son = Cells(Rows.Count, "A").End(3).Row
For i = son To 2 Step -1
    If IsNumeric(Cells(i, "A")) = False Or Cells(i, "A") = "" Then
        Rows(i).Delete
    End If
Next
End Sub

 

[YUSUF44]

Dosyanın en altında AÖF ile ilgili farklı düzende bir bölüm varmış. O bölümün silinmemesi için i = son yerine i = 3178 şeklinde kullanın.

 

[erd5334]

Aşağıdaki makroyu deneyiniz. A sütununda sayı olmayan ya da boş olan satırları siler:

Sub sil()
son = Cells(Rows.Count, "A").End(3).Row
For i = son To 2 Step -1
    If IsNumeric(Cells(i, "A")) = False Or Cells(i, "A") = "" Then
        Rows(i).Delete
    End If
Next
End Sub

çok teşekkür ederim hocam sorunum çözüldü