Excel VBA -删除时间值小于

在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

这段代码首先定义了一个要操作的范围（rng），可以根据实际情况进行调整。然后，通过遍历范围中的每个单元格，检查其值是否为时间类型且小于指定值。如果满足条件，将要删除的单元格添加到删除范围（deleteRange）。最后，删除删除范围中的单元格或行。

这段代码可以应用于各种情况，例如删除某个时间段内的数据、删除早于某个时间点的数据等。

腾讯云相关产品和产品介绍链接地址：