VBA宏开发需求：删除表格中时间晚于07:45的行

问题说明 #

需要删除Excel表格（名为Events）中Time列时间晚于07:45的行，仅保留时间≤07:45的记录。

原代码问题分析 #

你提供的示例代码存在两个核心问题：

• 直接用= criteria判断，无法处理>07:45这类比较逻辑
• 未将字符串形式的时间转换成Excel可识别的时间值进行比较，字符串比较会出现逻辑错误（比如"18:00"和"07:45"的字符串比较结果不符合时间逻辑）

正确实现代码 #

完整宏代码 #

Sub DeleteRowsAfter745()
    Dim tbl As ListObject
    Dim targetTime As Date
    Dim lr As ListRow
    Dim timeCell As Range
    
    ' 设置目标时间：07:45
    targetTime = TimeValue("07:45")
    
    ' 指定要操作的表格（工作表名和表格名根据实际修改）
    Set tbl = ThisWorkbook.Worksheets("Sheet1").ListObjects("Events")
    
    ' 从最后一行往前遍历，避免删除行后索引混乱
    For x = tbl.ListRows.Count To 1 Step -1
        Set lr = tbl.ListRows(x)
        ' 获取当前行Time列的单元格
        Set timeCell = lr.Range.Cells(1, tbl.ListColumns("Time").Index)
        
        ' 判断单元格时间是否晚于目标时间，同时校验是否为有效日期
        If IsDate(timeCell.Value) And timeCell.Value > targetTime Then
            lr.Delete
        End If
    Next x
End Sub

代码关键说明 #

• TimeValue("07:45")：将字符串时间转换成Excel内部的时间数值，确保时间比较逻辑准确
• 反向索引遍历：从表格最后一行往前循环，避免删除行后前面的行索引错位导致漏删
• IsDate(timeCell.Value)：增加类型校验，防止单元格非时间值引发运行错误
• tbl.ListColumns("Time").Index：通过列名动态获取列索引，即使表格列顺序调整，代码依然能正确定位Time列

调用方式 #

直接运行DeleteRowsAfter745宏即可完成需求。

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