在Workbook_Open()里添加:time0=TimeValue("9:30:00")for i=0 to 11Application.OnTime time0+i*TimeValue("0:10:00"), "test"next可以实现在9:30-11:30,每10分钟自动运行宏test