每分钟复制一次范围(可以更改)

Question

我是 VBA 的初学者，总是使用功能来解决我的问题 在这种情况下，我有市场出价和报价以及摘要的在线提要 我想将每分钟的摘要值和格式复制到右侧，并使用一些变量与复制和粘贴之间的时间间隔相对应 更新 11/06

看看这个我的尝试，请[在图像中，您可以看到当前出价和报价[范围"A4：C104"]的数据，当前报价F5及其在F3中的位置 在黄色中，您可以看到 10 个最佳(最接近当前出价和报价(，我想每 5 分钟复制并粘贴到右侧以查看市场趋势 1

Dim timerun

Sub copymacro()
Dim r1 As Range
Columnstart = Cells(5, Columns.Count).End(xlToLeft).Column + 1
Set r1 = Worksheets(1).Range("i5:L17")
r1.copy
r1.Offset(0, Columnstart).PasteSpecial Paste:=xlPasteValues
Columnstart = Columnstart + 9
Call nextrun

End Sub
Sub nextrun()
timerun = Now + TimeValue("00:00:03")
Application.OnTime timerun, "copymacro"
End Sub
Sub start()
Call nextrun
End Sub
Sub Finish()
Application.OnTime timerun, "copymacro", , False
End Sub

Answer 1

Dim timerun
Sub copymacro()
Dim r1 As Range
Columnstart = Cells(5, Columns.Count).End(xlToLeft).Column + 1
Set r1 = Worksheets(1).Range("i5:L17")
r1.copy
r1.Offset(0, Columnstart).PasteSpecial Paste:=xlPasteValues
Columnstart = Columnstart + 9
timerun = Now + TimeValue("00:00:03")
Application.OnTime timerun, "copymacro"

End Sub

Sub Finish()
Application.OnTime timerun, "copymacro", , False
End Sub

如果您需要定期复制范围