每5分钟自动将实时表1中的数据更新为表2，表3

Question

我想从实时数据表更新为每张5分钟时间帧配对文件，对于Sheet Sheet1，Pair Sheet2以及15分钟时间帧对于Sheet Sheet3，Pair Sheet 4来自以下公式我只想在一个文件中知道如何我可以区分多个股票的时间框架。

Sub CopyValues（） Dim RowNo As Long RowNo = Sheets（2）.Cells（Rows.Count，2）.End（xlUp）.Row + 1

Sheets(2).Cells(RowNo, 2) = Sheets(1).Cells(23, 2)

Sheets(2).Cells(RowNo, 3) = Sheets(1).Cells(24, 2)

Sheets(3).Cells(RowNo, 2) = Sheets(1).Cells(26, 2)

Sheets(3).Cells(RowNo, 3) = Sheets(1).Cells(27, 2)

Application.OnTime Now + TimeValue（“00:60:00”），“CopyValues”

End Sub