Question

我有一个工作表，其中包含相对于美元的货币值的实时数据，该数据在单元格e2中每10分钟更新一次，而单元格d2中的实时时钟更新。我想在另一个工作表中每10分钟记录这两个值，因此我记录了该值的每日波动率。这样做的最佳方式是什么？

感谢您的帮助。

Answer 1

这会将Sheet1上D2和E2的值复制到Sheet2上的D2和E2，每次复制一行时在Sheet2上添加一个新行。

它将每10分钟自动运行一次。

Sub CopyValues()
Dim RowNo As Long
RowNo = Sheets(2).Cells(Rows.Count, 4).End(xlUp).Row + 1

    Sheets(2).Cells(RowNo, 4) = Sheets(1).Cells(2, 4)
    Sheets(2).Cells(RowNo, 5) = Sheets(1).Cells(2, 5)

Application.OnTime Now + TimeValue("00:10:00"), "CopyValues"

End Sub

如何每10分钟发送一次数据到Excel中的单独工作表？

1 个答案: