VBA循环中调整Timer：调用耗时宏后工作表切换崩溃求助

核心问题分析 #

1. Runtime Error 91：大概率是Pause变量未提前声明初始化，或是Refresh宏运行后活动工作表丢失，导致后续Worksheets(i).Select无法找到有效对象。
2. 原Pause调整逻辑错误：你添加的If i=2 And j=1 Then Pause=300完全偏离需求——它会修改第一次循环的暂停时长，而非300次循环后Refresh的适配逻辑，根本起不到作用。
3. 崩溃根源：Refresh运行耗时5分钟，期间Excel状态可能发生变化（比如活动表被切换、对象引用失效），后续循环无法回到正确的工作表流程。

修复与优化方案 #

1. 声明并初始化变量

在代码开头明确声明所有变量，避免未定义变量导致的错误：

Dim Loops As Integer, j As Integer, i As Integer
Dim Pause As Double
Dim targetSheet As Worksheet
Loops = 300 ' 根据实际需求设置总循环次数
Pause = 5 ' 初始单次切换后暂停5秒

2. 单独处理Refresh的耗时与工作表恢复

调用Refresh前记录下一个要切换的工作表，完成后直接激活该表并单独做5分钟等待，不修改全局Pause值，避免影响后续正常循环：

Sub WorksheetLoop()
    Dim Loops As Integer, j As Integer, i As Integer
    Dim Pause As Double
    Dim targetSheet As Worksheet
    Loops = 300
    Pause = 5

    For j = 1 To Loops
        For i = 1 To 5
            ' 直接绑定工作表对象，避免依赖活动表
            Set targetSheet = ThisWorkbook.Worksheets(i)
            targetSheet.Activate ' 仅当必须激活时使用，尽量避免
            
            ' 标准暂停逻辑
            Dim startTime As Double
            startTime = Timer
            Do While Timer - startTime < Pause
                DoEvents ' 让Excel响应外部操作，避免假死
            Loop
            
            ' 触发Refresh的条件：第300次循环的第一个工作表
            If i = 1 And j = 300 Then
                ' 记录下一个要切换的工作表（i=2）
                Set targetSheet = ThisWorkbook.Worksheets(2)
                ' 执行耗时宏
                Call Refresh
                
                ' Refresh完成后，激活目标工作表并等待5分钟
                targetSheet.Activate
                startTime = Timer
                Do While Timer - startTime < 300 ' 5分钟=300秒
                    DoEvents
                Loop
            End If
        Next i
    Next j
End Sub

3. 额外优化建议

• 避免依赖Select/Activate：如果你的逻辑不需要依赖活动工作表，直接通过targetSheet对象操作（比如targetSheet.Range("A1").Value = "test"），彻底杜绝活动表变化导致的错误。
• 优化Refresh宏：在Refresh开头添加Application.ScreenUpdating = False，结尾添加Application.ScreenUpdating = True，减少屏幕刷新卡顿；同时确保宏运行完后回到原工作簿，避免对象引用失效。

内容的提问来源于stack exchange，提问作者Thomas