由于实时数据更新，表格大幅增长

Question

我有电力读取设备，可以每秒更新服务器上的电源更改到Excel工作表。我正在运行一个Java程序，它可以访问这些实时数据以用于我的调度目的，但是当我访问Excel时，我只需要最后更新的数据。由于每秒更新数据，Excel表格正在大幅增长。

我有什么方法可以在Excel表格或任何工具的帮助下编制删除超出特定限制的所有旧数据，同时保存最近十次更新的最新更新读数（我不会当我的程序试图访问最后一行数据时，我希望在任何时候都返回null - 所以Excel中应该总是有读数吗？

Answer 1

这段代码将保留最后10行。 假设每次工作表发生变化时它都会启动。

代码进入工作表模块。

Private Sub Worksheet_Change(ByVal Target As Range)
    KeepLst10Rws
End Sub



Sub KeepLst10Rws()
    Dim rws As Long
    rws = Cells(Rows.Count, "A").End(xlUp).Row
    If rws > 10 Then
        Rows("1:" & (rws - 10)).Delete
    End If
End Sub