ilgili satırları bulup silme

[lizard777]

Öncelikle herkese merhaba arkadaşlar. Sorumu gelince

arkadaşlar ekteki resimdeki gibi bir excel dosyası mevcut ve benim bu dosya içerisindeki ters kayıtları temizlemem lazım yapmam gereken işlem H sütunundaki ters kayıt yazan satırın yanındaki numara ile eşleşen A sütunundaki kaydı bulup iki satırı komple silmek bu işlemi nasıl yapabiliriz?

 

[Seyit Tiken]

Şu şekil bir çözüm işinize yarar mı?

For s = 1 To [a1000].End(3).Row
If Cells(s, "a") = "100008200" Then
Cells(s, "a") = ""
Cells(s, "b") = ""
End If
Next