'以下代码,放到workSheet代码窗格中Private Sub Worksheet_Calculate()Application.OnTime Now + TimeValue("0:00:20"), "test" '20秒后执行名为test的宏End Sub'以下代码,放到模块中Sub test()If Range("GQ170").Value = "错" ThenRange("gp6").Value = Range("go6").ValueEnd IfEnd Sub