Excel VBA -删除时间值小于

Sub DeleteTimeLessThan()
    Dim rng As Range
    Dim cell As Range
    Dim deleteRange As Range
    Dim compareTime As Date
    
    ' 设置比较的时间值
    compareTime = TimeValue("09:00:00")
    
    ' 设置要操作的范围，可以根据实际情况进行调整
    Set rng = Range("A1:A10")
    
    ' 遍历范围中的每个单元格
    For Each cell In rng
        ' 检查单元格的值是否为时间类型且小于指定值
        If IsDate(cell.Value) And TimeValue(cell.Value) < compareTime Then
            ' 将要删除的单元格添加到删除范围
            If deleteRange Is Nothing Then
                Set deleteRange = cell
            Else
                Set deleteRange = Union(deleteRange, cell)
            End If
        End If
    Next cell
    
    ' 删除删除范围中的单元格或行
    If Not deleteRange Is Nothing Then
        deleteRange.Delete Shift:=xlUp
    End If
End Sub