宏的檢查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) = ""

更換線

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