Excel: запись в реальном времени строки обновления в таблицу

Question

У меня есть строка обновления в реальном времени (A2: E2) на листе 1, и я хотел бы записывать ее каждые 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

попробовать с помощью цикла и ждать() метод перед выполнением следующего цикла ...

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