Excel VBA OnTime宏多次运行

Question

我有一个简单的代码，可以复制我的股票投资组合的当前价值并将其粘贴到表格中。我最近尝试添加一个计时器，以便它每小时自动执行此操作。但是，它可以将值粘贴到表中四到五次。我四处搜索，我认为这可能是因为它只需要一瞬间来运行宏，所以它会循环直到一整秒过去。

以下是代码：

Sub AutoPL()
    Worksheets("Overview").Range("C15:D15").Copy
    Worksheets("Data").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial                     xlPasteValues
    Application.CutCopyMode = False
    Call PLTimer
End Sub


Sub PLTimer()
    Application.OnTime Now + TimeValue("01:00:00"), "AutoPL"
End Sub

提前致谢

Answer 1

@mclapham我在再次致电Application.Wait Now + TimeValue("00:00:01")之前使用Application.OnTime解决了您在评论中描述的冻结。