Tag: timedelay

1秒延迟持续近2秒

我正在编写一个代码，将数据从一个电子表格复制到另一个电子表格。 我已经尝试了Application.Wait和睡眠，但他们阻止两个电子表格，所以我决定使用一个做直到循环。 它有效，但1秒持续近2秒，我不知道为什么。 所以我只留下了代码中的循环，但testing给出了相同的结果（大约需要95秒）。 任何build议？ 这里是代码： Sub Test() Dim Delay As Date cell = 1 For i = 1 to 60 Workbooks("Data").Worksheets("Sheet1").Range("C" & cell).Value = cell cell = cell +1 Delay = Now() + TimeValue("00:00:01") Do Until Now() >= Delay Do Events Loop Next i End Sub