VBA代码无法执行符合条件删除整行操作，请老师帮忙看下附件内的代码哪里的问...

18898456

具体见附件

shiruiqiang

部分行非时间格式，要不容错，要不定死区域

18898456

shiruiqiang 发表于 2024-3-26 14:50
部分行非时间格式，要不容错，要不定死区域

谢谢老师指导。如果时间跨度超过一天，这次反过来，开始时间17:30:00 到早上08:30:00之间范围符合条件的进行整行删除，代码如何调整？

shiruiqiang

>17:30:00  or <08:30:00 就删除

18898456

shiruiqiang 发表于 2024-3-26 15:09
>17:30:00  or

代码修改后 执行没有反应，烦请老师帮忙看看
Sub 删除时间范围内的行()
    Dim 时间范围开始 As Date
    Dim 时间范围结束 As Date
    Dim 目标列 As Range
    Dim 单元格 As Range
    Dim 行号 As Long
   
    ' 设置时间范围
    时间范围开始 = TimeValue("08:30:00")
    时间范围结束 = TimeValue("17:30:00")
   
    ' 设置目标列
    Set 目标列 = Range("K2:K52")
   
    ' 遍历目标列
    For Each 单元格 In 目标列
        ' 检查单元格值是否在时间范围内
        If 单元格.Value < 时间范围开始 And 单元格.Value > 时间范围结束 Then
            ' 获取对应的行号并删除整行
            行号 = 单元格.Row
            Rows(行号).Delete
            ' 由于删除一行后，行号会发生变化，因此需要将行号减1
            ' 这样下一次循环时才能正确地指向下一行
            行号 = 行号 - 1
        End If
    Next 单元格
End Sub

18898456

shiruiqiang 发表于 2024-3-26 15:09
>17:30:00  or

18898456

shiruiqiang 发表于 2024-3-26 15:09
>17:30:00  or

修改后运行 没有删除动作 烦请老师看看

shiruiqiang

shiruiqiang

只需满足条件之一，同时不可能存在

shiruiqiang

另：for each 的话，行号不用减1，因为不是逐行判断