Question

关于EXCEL中VBA判断条件删除行

请教大神，在Sheet1中，判断H、I、J、K这4列的值是否为非字符串类型是的话，删除本行，同时显示删除的总行数。不是的话，保留行。第一行标题需要保存。请问如何现实？非常感谢。。。图如下：
我的天，这需求整反了，
我需要删除的是那些正常的考勤记录，异常的保留。
比如，缺勤、旷工、请假，带字符串的保留。
================
非常感谢，代码我已经调整一下，就可以用了。
但同时，我想将M，N列中带有‘旷工’字符的清空。同时删除包含Q列及后面所有列，怎么实现？请教，感谢。

Answer 1

代码如下：

Sub 宏1()
    For i=ActiveSheet.UsedRange.Rows.Count To 2 Step -1
        If VarType(Cells(i,"I"))=vbString And VarType(Cells(i,"J"))=vbString And  VarType(Cells(i,"J"))=vbString And  VarType(Cells(i,"H"))=vbString Then
            Rows(i).Delete
        End if
    Next i
End Sub

追问

我的天，这需求整反了，
我需要删除的是那些正常的考勤记录，异常的保留。
比如，缺勤、旷工、请假，带字符串的保留。