확인 용 매크로 T

Question

매크로를 만드는 데별로 좋지 않아서 여기에서 도움을 요청하는 것입니다. 내가 뭘 하려는지 두 번째 행을 떠나지 않고 다음 행으로 이동하는 것보다 두 개의 셀 사이의 차이가 5 분 이상인 경우 G 열 (3 행부터 시작)에서 확인하는 것입니다. 다음 행으로 이동하십시오.

것은의 체크 1에 대한 2

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

1. 22시 35분 0초는
2. 22시 48분을 삭제
3. 22시 35분 25초 삭제
4. 22시 35분 7초 휴가 가정 해 봅시다 : 31 퇴장
5. 22:48:38 삭제
6. 22:49:35 삭제
,210

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

를 교체 세포를 제거하지만 그들을 취소하지 않으려면