Excel：記錄實時更新行到表

Question

我有一個實時更新行（A2：E2）在sheet1上，我想記錄它每5秒到sheet2上的表。最終的目標是繪製它。

我試過這個，但我只是得到數據表更新1行，未能進一步填充。

Sub ValueStore() 
    Dim dTime As Date 
    Dim LastRow As Long 
    LastRow = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1 
    Range("A2:E2").Copy Destination:=Sheets("Data").Range("A" & LastRow) 
    Call StartTimer 
End Sub 

Sub StartTimer() 
    dTime = Now + TimeValue("00:00:05") 
    Application.OnTime dTime, "ValueStore", Schedule:=True 
End Sub 

Sub StopTimer() 
    On Error Resume Next 
    Application.OnTime dTime, "ValueStore", Schedule:=False 
End Sub 

Sub DeleteData() 
    Sheets("Data").Range("A2:E1000").Delete 
End Sub 

Answer 1

嘗試使用一個循環，並在執行下一個循環前的wait（）方法...

sub valuestore() 
    for (loop range) 
     LastRow = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1 
     Range("A2:E2").Copy Destination:=Sheets("Data").Range("A" & LastRow) 
     application.wait now()+"00:00:05" 
     next loop_variable 
     end sub