如何实现最多保留1440行的自动滚动Excel时间序列数据？

没问题，我来帮你调整这段VBA代码，实现固定1440行数据滚动存储的需求——当数据达到上限时自动删除最旧的一行，再将新数据追加到末尾，始终保持最多1440行有效数据。

修改后的完整代码 #

Sub Auto_Open()
    Call CopyValues
End Sub

Sub CopyValues()
    ' 定义最大存储行数，后续可直接修改这个值调整容量
    Const MAX_ROWS As Long = 1440
    Dim wsTarget As Worksheet
    Dim lastRow As Long
    Dim currentDataRows As Long
    
    ' 把目标工作表赋值给变量，让代码更清晰易维护
    Set wsTarget = Sheets(4)
    ' 获取目标表中第4列的最后一行（原代码用第4列判断数据行，这里保持一致）
    lastRow = wsTarget.Cells(wsTarget.Rows.Count, 4).End(xlUp).Row
    
    ' 计算当前已存储的数据行数：假设第1行是表头，所以用最后行号减1
    ' 如果你的Sheets(4)没有表头，直接改成 currentDataRows = lastRow
    currentDataRows = lastRow - 1
    
    ' 当数据行数达到上限时，删除最旧的一行（第2行，对应最早采集的数据）
    ' 如果没有表头，改成 wsTarget.Rows(1).Delete Shift:=xlUp
    If currentDataRows >= MAX_ROWS Then
        wsTarget.Rows(2).Delete Shift:=xlUp
        ' 删除行后，最后一行的行号需要减1，避免后续计算错误
        lastRow = lastRow - 1
    End If
    
    ' 计算新数据要插入的行号
    Dim newRow As Long
    newRow = lastRow + 1
    
    ' 复制数据到目标行（这部分和你原代码逻辑一致）
    wsTarget.Cells(newRow, 2) = Sheets(1).Cells(14, 2)
    wsTarget.Cells(newRow, 3) = Sheets(1).Cells(14, 3)
    wsTarget.Cells(newRow, 4) = Sheets(1).Cells(14, 4)
    wsTarget.Cells(newRow, 5) = Sheets(1).Cells(15, 2)
    wsTarget.Cells(newRow, 6) = Sheets(1).Cells(15, 3)
    wsTarget.Cells(newRow, 7) = Sheets(1).Cells(15, 4)
    wsTarget.Cells(newRow, 8) = Sheets(1).Cells(16, 2)
    wsTarget.Cells(newRow, 9) = Sheets(1).Cells(16, 3)
    wsTarget.Cells(newRow, 10) = Sheets(1).Cells(16, 4)
    wsTarget.Cells(newRow, 11) = Sheets(1).Cells(17, 2)
    
    ' 设置下一次定时任务，保持每分钟执行一次
    Application.OnTime Now + TimeValue("00:01:00"), "CopyValues"
End Sub

关键改动说明 #

• 常量定义：新增Const MAX_ROWS As Long = 1440，后续要调整存储行数时，直接修改这个值即可，不用遍历代码修改多处。
• 工作表变量：用wsTarget代替重复的Sheets(4)，让代码更简洁，也方便后续修改目标表。
• 滚动逻辑：在复制新数据前，先判断当前数据行数是否达到上限：
  • 如果达到，删除最旧的一行（默认假设第1行是表头，所以删除第2行；如果没有表头，修改删除行号为第1行）。
  • 删除行后更新lastRow的值，避免后续计算新行号时出错。
• 兼容原有逻辑：数据复制部分完全保留你原来的代码，确保采集的字段和位置不变。

注意事项 #

1. 表头建议：强烈建议在Sheets(4)的第1行添加对应字段的表头（比如列2到11分别标注采集的指标名称），这样数据更清晰，也符合代码中的行数计算逻辑。如果不需要表头，记得修改代码中currentDataRows的计算方式和删除行的行号。
2. 宏启用：确保Excel启用了宏，否则Auto_Open和定时任务都无法正常执行。
3. 定时任务：Excel关闭后定时任务会自动取消，重新打开文件时Auto_Open会重新启动任务，无需额外操作。

内容的提问来源于stack exchange，提问作者pottolom