没有附件 , 无法测试
===================================
Sub 测试()
For i = 1 To 1000000
For j = 1 To 999
Application.Run "常30规.xlsm!Sheet21.运行" & j
If [A3] <= 2 Or [A8] <= 1 Then Exit Sub
Next j
Next i
End Sub
========================================
PS:
[A3] 写为 range("A3") ,运行效率更高