Question

请教大家，如何实现excel实时数据的存储，最好能用VBA

我有一个excel表格，里面有实时更新的数据，我想把这些数据存储在其他sheet中，可以看历史趋势，如何实现呢？
excel表格sheet1里面有一个固定单元格的数据实时变化，每秒更新一次，我想把这个单元格的数据另外存储到sheet2的第二列（第一列是时间值），更新一次，存储一次，存储位置为下一行，这样我就可以看数据随时间变化的趋势了。
还有一个问题：如果以上问题能实现的话，sheet2的数据能否自动覆盖，只要600行（10分钟）最新的数据，像行车记录仪数据自动覆盖一样？

Answer 1

假如你的sheet1中要存储的数据有 m行、n列（注：m、n都必需是具体的某个数，如200。如每批的数据量m、n不同，则都取一个最接近的大值），它们每批次关闭Excel之前，都能自动纵向保存到sheet2中。然后，在ThisWorkBook中输入
Private Sub Workbook_BeforeClose(Cancel As Boolean)
dim MyN as Integer
'sheet3!A2的单元格数据为已经复制的批次的量值。
MyN=sheets(3).range("A2").value
'注下面三行程序的每个m、n 务必改动成具体的数值
for a=1 to m
for b=1 to n
sheets(2).cells(m*MyN+1,b).value=sheets(1).cells(a,b).value
next a
next b
sheets(3).range("A2").value=sheets(3).range("A2").value+1
ThisWorkbook.Save
End Sub

追问

谢谢，我把问题又补充了下

追答

先纠正上面的FOR循环：
应该先next b
再next a
然后给出你的新问题的解决参考方案。在sheet1中输入下面VBA语句：
Private Sub Worksheet_Change(ByVal Target As Range)
'假设sheet3!A2的单元格数据为已经复制的批次的量值。
'假设sheet1的B1要实时变化的固定单元格
Sheets(3).Range("A2") = Sheets(3).Range("A2") + 1
If Sheets(3).Range("A2") = 601 then
sheets(2).range("B2:B600")="" '假设需要清空前面一轮的数据，则要使用这一行。否则不用这一行。
Sheets(3).Range("A2") = 1
End If
Sheets(2).Cells(Sheets(3).Range("A2"), 2).Value = Range("B1").Value
End Sub

追问

好的，谢谢，这些代码我好好学习学习

Answer 2

需要编程，举例说明你的需求

追问

问题我补充了下

追答

最后1个问题，不太好实现