excel2012如何每隔特定的时间间隔比如1分钟自动引用特定单元格的数据用以画图或作他用?

Sub test()
Dim no, va, va1, va2, va3, newHour, newMinute, waitTime
va = 1
va2 = 1
va3 = InputBox("这里输入要填充的最后绝对行号(例如输入200，表示一直填充到第200行)", "请输入尾行号") * 1
Do Until va > va3
If Len(Cells(va, va2)) > 0 Then
va = va + 1
va1 = va - 1
Else: Cells(va, va2) = Cells(va1, va2)
newHour = Hour(Now())
newMinute = Minute(Now()) + 1
newSecond = Second(Now())
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
End If
Loop
End Sub

随意录制一个宏test，为其指定一个快捷键。打开宏编辑代码，把以上代码覆盖保存源代码，这样打开包含动态数据的工作表后，按快捷键，就会每隔1分钟把A1最新的数据从A2开始往下写到指定行数里，然后可以对这些历史数据作图分析。