ThisWorkBook里面寫(xiě)：

PrivateSubWorkbook_Open()

freshtime

EndSub

然后新建模塊里面寫(xiě)：

Subfreshtime()

DimNewTimeAsDate

NewTime=Now+TimeValue("00:00:01")

Calculate

Application.OnTimeNewTime,"freshtime"

EndSub

然后保存并重新打開(kāi)表格，數(shù)據(jù)每秒自動(dòng)刷新。

如果要不間斷一直刷新，把+TimeValue("00:00:01")去掉，但是會(huì)非常卡，無(wú)法操作。

原創(chuàng)，Excel2016親測(cè)可行。