1.工具-宏-Visual Basic编辑器
2.点击右键-插入-模块
3.输入以下代码：
Sub biao()
ActiveSheet.Range("a1").Value = Time
application.onTime Time + TimeSerial(0,0,1),"biao
End Sub
4.关闭Visual Basic编辑器，返回工作簿
5.工具-宏（在宏对话框中输入biao，点执行）
注：a1是单元格，这个可以任选。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024