Excel VBA代码无法删除下班时间为空且到岗早于17点的行

问题概述 #

编写VBA代码意图删除「下班时间（leavetime）为空且到岗时间（arrivetime）小时数≤17」的行，但符合条件的Michael行未被删除，代码完全未执行预期操作。

核心错误排查 #

1. 最后一行(LastRow)计算逻辑错误 #

原代码中LastRow = Application.CountA(Range("c3", Range("c" & Rows.Count)))的作用是统计C列从C3开始的非空单元格数量，而非获取实际的最后一行行号。
比如示例数据中C列有3个非空单元格（C3-C5），CountA返回3，循环仅会遍历第3行，而符合删除条件的Michael在第4行，根本没进入循环检查。
正确的最后一行获取方式应为：LastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row，该语句会定位到C列最后一个非空单元格的行号。

2. 条件判断的类型不匹配 #

原代码中arrivehour <= "17"是将整数类型的小时数和字符串"17"做比较，虽然VBA会尝试隐式转换，但这种写法不严谨且可能引发意外问题。Hour函数返回的是整数，应直接和数值17比较：arrivehour <= 17。

3. 空值判断的严谨性优化 #

原代码leaveTime = ""对于单元格物理空值有效，但如果单元格是公式返回的空字符串，建议补充Trim(leaveTime) = ""或使用IsEmpty(leaveTime)来覆盖更多场景。

修正后的完整代码 #

Dim ws As Worksheet
Dim LastRow As Long
Dim i As Long
Dim arriveTime As Date
Dim leaveTime As Variant
Dim arrivehour As Integer

' 指定目标工作表（建议直接用表名，避免ActiveSheet切换出错）
Set ws = ThisWorkbook.Worksheets("你的工作表名称")

' 获取C列最后一个非空单元格的行号
LastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row

' 从最后一行倒序遍历到第3行
For i = LastRow To 3 Step -1
    arriveTime = ws.Cells(i, 4).Value        ' 到岗时间（D列）
    leaveTime = ws.Cells(i, 5).Value         ' 下班时间（E列）
    arrivehour = Hour(arriveTime)
    
    ' 判断条件：下班时间为空 且 到岗小时数≤17
    If (IsEmpty(leaveTime) Or Trim(leaveTime) = "") And arrivehour <= 17 Then
        ws.Rows(i).Delete   ' 删除该行
    End If
Next i

' 释放对象内存
Set ws = Nothing

MsgBox "符合条件的行已删除。"

额外建议 #

• 尽量避免使用ActiveSheet，直接指定工作表名称（如Worksheets("考勤表")），防止因工作表切换导致代码执行错误。
• 变量类型尽量明确：LastRow和i用Long而非Integer，避免行数超过Integer上限（32767）时溢出。
• 倒序遍历行是正确的做法，避免删除行后后续行索引错乱。

内容的提问来源于stack exchange，提问作者Thebusybee