定期自动递增excel单元格值

假设单元格A1的值为1。我希望这个细胞每秒钟增加一次。 1秒后，单元格A1的值为2。两秒钟后，值为3，以此类推

我如何设置它？

您可以使用以下选项：

=ROUND(NOW()*24*3600,0)-3522649665

---

其中

3522649665

只是一个任意偏移量。您可能必须使用F9或VBA命令

Sheet1.Range（“A1”）.Calculate

（假设您将公式放在单元格A1中）强制重新计算

这里有一种使用VBA的方法：

Sub CellTimer()

    Sheet1.Range("A2").Value = 1
    Do
        Application.Wait (Now() + TimeValue("0:00:01"))
        Sheet1.Range("A2").Value = Sheet1.Range("A2").Value + 1
    Loop

End Sub

---

这有它的怪癖，但我不知道你要用它做什么，所以我不知道，也许这会适合你的目的

这对我来说非常有效，可以每秒重新计算一次：

Sub CalculateNow()
    'Your code here
    'i.e.
    Calculate 'This recalculates all your cell values


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

---

谢谢，这正是我需要的。。。只是看看我能不能做到。我只是在做实验，所以我非常感谢你对我的教育的投入；）如果你不介意我问的话，这到底涉及到什么怪癖？每个迭代将不需要1秒，而是1秒加上

Do…循环中代码的执行时间（现在这是很小的，但是如果你在循环中放入更多代码，它会增长）。如果你担心的话，我的例子可以重写以消除这种影响。值得吗？这取决于你。另外，
.Wait
在等待过程中不允许您执行任何操作。