Excel 我在a列中有一个数据，每分钟更新一次。我必须在新列中传输一分钟后的每个单元格数据，然后创建趋势

在多达64行的情况下，一切都正常工作，因此停止传输数据

 Option Explicit
    Public dTime As Date
    ;Main program
    Sub ValueStore ()
    Dim dTime As Date
        Range("B" & Cells(Rows.Count).Row).End(xlUp).Offset(1, 0).Value = Range("A1").Value
        Range("c" & Cells(Rows.Count).Row).End(xlUp).Offset(1, 0).Value = Range("A2").Value
        Range("D" & Cells(Rows.Count).Row).End(xlUp).Offset(1, 0).Value = Range("A3").Value
        Range("E" & Cells(Rows.Count).Row).End(xlUp).Offset(1, 0).Value = Range("A4").Value
        Range("F" & Cells(Rows.Count).Row).End(xlUp).Offset(1, 0).Value = Range("A5").Value

        Call StartTimer
    End Sub

第一个启动按钮

Sub StartTimer()
    dTime = Now + TimeValue("00:00:05") !here i tack 5 sec
    Application.OnTime dTime, "ValueStore", Schedule:=True
End Sub

第二个停止按钮

Sub StopTimer()
    On Error Resume Next
    Application.OnTime dTime, "ValueStore", Schedule:=False
End Sub

单元格（Rows.Count）。在现代版本的Excel文件中，Row

为64。这是因为

Rows.Count

将是1048576，因此

Cells（1048576）

指的是第64行的cell

XFD64

。您的代码需要指定一列，以便查看一列中的第1048576个单元格

Option Explicit
Public dTime As Date
;Main program
Sub ValueStore ()
    Dim dTime As Date
    Dim nextRow As Long
    'Calculate the row number once
    nextRow = Cells(Rows.Count, "B").End(xlUp).Row + 1
    Range("B" & nextRow).Value = Range("A1").Value
    Range("c" & nextRow).Value = Range("A2").Value
    Range("D" & nextRow).Value = Range("A3").Value
    Range("E" & nextRow).Value = Range("A4").Value
    Range("F" & nextRow).Value = Range("A5").Value

    Call StartTimer
End Sub

---

; 启动子启动的第一个按钮

在此处输入代码

Timer（）dTime=Now+TimeValue（“00:00:05”）！在这里，我使用5秒的Application.OnTime dTime，“ValueStore”，Schedule:=True End Sub；错误时stop Sub StopTimer（）的第二个按钮继续下一个应用程序。OnTime dTime，“ValueStore”，Schedule:=False End SubOne更多内容。我想在图表中显示这些数据，但图表必须灵活选择数据范围…@YATIN-这与原始问题完全不同，因此请提出一个新问题。（未来想知道如何将图表添加到工作表中的人不太可能期望在题为“我每分钟更新一列中的数据。我必须在新列中传输一分钟后的每个单元格数据，而不是创建趋势”的问题中找到答案。）P.S.有些人如果看到你没有这样做，就会拒绝回答问题“接受”以前问题的答案。因此，如果我的答案对您有帮助，请单击问题左侧的“勾号”。）谢谢，亲爱的。我问了一个新问题。但在上述情况下，我每分钟都从软件更新的受保护工作表传输数据。在4-5次数据传输后，我出现错误”运行时错误1004“。谢谢亲爱的。我问了一个新问题。但在上述情况下，我每分钟都会从受保护的工作表传输数据，这是软件更新。在4-5次数据传输后，我得到错误“运行时错误1004”“。您试图更改的单元格或图表受保护，因此为只读。即使在我解除文件保护之后。我收到了同样的错误。