用于检查T的宏

Question

我不是很擅长创建宏，这就是为什么在这里寻求帮助的原因。我想要做的是从列G（从第3行开始）检查两个单元格之间的差异是否大于5分钟而不是两行，如果不是则转到下一行，删除上一行和转到下一行。

让我们说检查1对2

           2 ------- 3
           3 ------- 4
           4 ------- 5
           5 ------- 6
           6 ------- until empty cell

1. 22:35:00删除
2. 22:35:25删除
3. 22:35:07离开
4. 22:48:31离开
5. 22:48:38删除
6. 22:49:35删除

Answer 1

试试这个：

Sub Macro()
    Dim r As Range

    Set r = ActiveSheet.Range("G3")
    Do
        Set r = r.Offset(1, 0)

        If r - r.Offset(-1, 0) < TimeSerial(0, 5, 0) Then
            r.Offset(-1, 0).Delete shift:=xlShiftUp
        Else
            Set r = r.Offset(1, 0)
        End If
    Loop While r <> ""
End Sub

如果您不想删除单元格但只清除它们，请更换行

r.Offset(-1, 0).Delete shift:=xlShiftUp

通过

r.Offset(-1, 0) = ""