Excel单元格值变更触发VBA宏时无预警崩溃的解决方案咨询

1. 递归死循环：隐藏/取消隐藏行的操作会触发工作表重新计算，Worksheet_Calculate事件会被反复调用，最终导致Excel资源耗尽崩溃
2. 列引用错误：你的1/0判断公式存储在I3:I70区域，但现有代码判断的是H列区域，逻辑不匹配
3. 原有判断逻辑无效：If Not Intersect(Xrg, Range("H3:H70")) Is Nothing的判断永远成立，只要工作表发生计算就会无条件执行隐藏行逻辑，进一步加剧性能问题

将以下代码完整粘贴到对应工作表的代码模块中即可：

' 放在工作表模块最顶部，用于存储上一次I2的汇总值
Dim preI2Val As Variant

Private Sub Worksheet_Calculate()
    ' 错误处理，确保异常时恢复事件触发
    On Error GoTo ErrHandler
    ' 只有I2汇总值发生变化时才执行后续逻辑，减少无效执行
    If Range("I2").Value <> preI2Val Then
        ' 关闭事件响应，避免操作行时触发递归
        Application.EnableEvents = False
        ' 执行行隐藏/显示逻辑
        Macro1
        ' 更新存储的I2值
        preI2Val = Range("I2").Value
    End If

ErrHandler:
    ' 无论是否出错，都重新开启事件响应
    Application.EnableEvents = True
End Sub

Sub Macro1()
    Dim cell As Range
    ' 遍历存储判断公式的I3:I70区域
    For Each cell In Range("I3:I70")
        If Not IsEmpty(cell) Then
            ' 合并判断逻辑，减少冗余计算
            cell.EntireRow.Hidden = (cell.Value = 0)
        End If
    Next
End Sub

• 首次打开文件启用宏后，会自动记录当前I2的初始值，后续用户操作下拉菜单触发公式更新时，会自动执行行隐藏/显示逻辑
• 如果需要调整判断区域，直接修改Range("I3:I70")和Range("I2")对应的单元格范围即可
• 禁止随意删除错误处理代码，否则如果代码运行出错，会导致Excel的事件响应被永久关闭，所有自动触发的宏都会失效

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