GBKEE

回復 1# gery
試試看

1. Option Explicit
   
2. Private Sub Worksheet_Calculate()
   
3.     Dim xR As Range
   
4.     If [B2] <> [B3] Then
   
5.         [C2:D2].Insert
   
6.         [C2] = [B2]
   
7.         [d2] = Time
   
8.     End If
   
9.     If IsNumeric([d2]) And [d2] > 0 Then
   
10.         Do While [D65536].End(xlUp) + #12:05:00 AM# < [d2]
    
11.             [D65536].End(xlUp).Offset(, -1).Resize(, 2) = ""
    
12.         Loop
    
13.     End If
    
14. End Sub

複製代碼

GBKEE

回復 4# gery

試試看
    保留x分鐘內的資料.zip (46.47 KB)

下載次數: 5

2017-7-18 20:12