Excel：將實時更新行記錄到表

Question

我在sheet1上有一個實時更新行（A2：E2），我想每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