运行循环宏时Excel工作表内容无法实时更新的问题

问题根源 #

原宏中使用的Application.Wait会让Excel进入阻塞状态，这段时间内Excel无法处理外部数据更新请求，也不会主动刷新工作表内容——单纯调用Application.ScreenUpdating = True无效，因为Wait期间根本没有执行刷新的时机。

改进后的宏代码 #

替换阻塞式等待为事件驱动等待，同时强制触发数据刷新：

Sub CycleSheets()
    On Error GoTo exit_
    Application.EnableCancelKey = xlErrorHandler
    Dim wsNames As Variant
    Dim i As Integer
    Dim waitStart As Double
    
    ' 定义要循环的工作表名称，后续增减直接修改数组即可
    wsNames = Array("Sheet 1", "Sheet 2", "Sheet 3")
    
    Do
        For i = LBound(wsNames) To UBound(wsNames)
            ' 切换目标工作表
            Sheets(wsNames(i)).Select
            
            ' 强制刷新数据计算与屏幕显示
            ActiveSheet.Calculate
            Application.ScreenUpdating = True
            Application.ScreenUpdating = False ' 开关操作触发屏幕刷新
            
            ' 等待1秒，但允许Excel处理外部事件（如Teams数据同步）
            waitStart = Timer
            Do While Timer < waitStart + 1
                DoEvents ' 释放控制权，让Excel处理待办事件
            Loop
        Next i
    Loop
    
exit_:
    Application.ScreenUpdating = True ' 确保宏退出后屏幕更新恢复正常
End Sub

关键改动说明 #

• 用Timer + DoEvents替代Application.Wait：DoEvents会让Excel在等待期间处理所有待办事件，包括Teams同步过来的数据更新。
• 添加ActiveSheet.Calculate：强制触发工作表计算，确保新输入的数据被即时计算并显示。
• 开关ScreenUpdating：通过先关闭再开启的操作，强制Excel刷新屏幕内容。
• 数组管理工作表名称：简化后续维护，增减工作表只需修改数组内容。

额外注意事项 #

• 确保工作簿处于Teams多人协作编辑模式，且本地Excel已开启「自动保存」（可通过「文件>信息」检查）。
• 如果数据更新仍有延迟，可尝试在切换工作表前添加ThisWorkbook.RefreshAll（适用于含外部数据源的场景）。

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