Excel Satır Silme

[Alpeek]

Merhaba. Aşağıdaki gibi çalışanların giriş-çıkış saatlerinin olduğu bir tablo düşünelim. Giriş saatinin olduğu yerde kırmızı ile işaretlediğim bölümde 2 defa üst üste giriş yapılmış. Bu tabloda bunun gibi çok örnek var. Benim yapmak istediğim bu gibi durumlarda bir satırı komple silmek. Yani aşağıdaki örnekten gidecek olursak 11:35:23 yazan hücrenin bulunduğu satırı komple silmek istiyorum. Bunun bir kısa yolu formülü vb. bir çözümü var mıdır? Yardımlarınız için şimdiden teşekkürler.

 

[Alpeek]

Ek olarak liste de bunun gibi çok örnek var. Bu şekilde hatalı olan satırları teker teker silmek çok vakit alıyor. Eğer bunun bir kısa yolu formülü vb. bir şey varsa bütün satırlara uygulamak istiyorum. Böylece zaman kaybını ortadan kaldırabiliriz.

 

[AdemCan]

Merhaba, verilerin A sütunundan başladığını varsayarak örnek bir kod hazırladım.
Giriş Saati B sütununda olacak ve Sayısal Değer ise alt alta gelen sayısal değerleri paylaştığım kod ile satır olarak silebilirsiniz.

Sub test()
Dim s1 As Worksheet, son As Long, x As Long
Set s1 = Sayfa1
son = s1.Cells(Rows.Count, 1).End(3).Row

For x = 2 To son
    If IsNumeric(Cells(x, 2)) And IsNumeric(Cells(x + 1, 2)) Then
        Cells(x + 1, 2).EntireRow.Delete
    End If
Next x

Set s1 = Nothing: son = 0: x = 0
End Sub