'以下代码，放到workSheet代码窗格中
Private Sub Worksheet_Calculate()
Application.OnTime Now + TimeValue("0:00:20"), "test" '20秒后执行名为test的宏
End Sub
'以下代码，放到模块中
Sub test()
If Range("GQ170").Value = "错" Then
Range("gp6").Value = Range("go6").Value
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024