Excel制作倒计时效果，按秒自动递减，2个函数轻松搞定！

date+now+自定义格式+宏

代码

Sub 计算()

Calculate

Application.OnTime Now + TimeValue("00:00:01"), "计算"

End Sub