Excel基于计算值隐藏/取消隐藏行时出现Stack overflow错误求助

问题根源 #

栈溢出的核心是递归触发计算事件：你在Worksheet_Calculate事件里修改行的隐藏状态时，Excel会重新计算工作表（哪怕公式不依赖隐藏行，某些场景下也会触发），这会再次调用Worksheet_Calculate，形成无限循环，最终撑爆栈导致崩溃。

修复方案 #

1. 切断递归循环（关键操作） #

在代码开头禁用事件触发，处理完所有行操作后再恢复，彻底阻止循环调用：

2. 简化冗余代码 #

把重复的Select Case逻辑改成数组批量处理，减少代码量，也更易维护。

修复后的完整代码 #

Private Sub Worksheet_Calculate()
    ' 禁用事件，防止递归触发
    Application.EnableEvents = False
    
    ' 用数组存所有需要处理的配对：计算单元格地址、对应控制的行范围
    Dim controlPairs As Variant
    controlPairs = Array( _
        Array("G32", "33:38"), _
        Array("G43", "44:46"), _
        Array("G47", "48:50"), _
        Array("G51", "52:55"), _
        Array("G56", "57:58"), _
        Array("G60", "61:64"), _
        Array("G65", "66:67"), _
        Array("G68", "69:71"), _
        Array("G72", "73:75"), _
        Array("G76", "77:80"), _
        Array("G81", "82:87"), _
        Array("G88", "89:92"), _
        Array("G93", "94:95"), _
        Array("G96", "97:98") _
    )
    
    Dim i As Integer
    For i = LBound(controlPairs) To UBound(controlPairs)
        ' 获取计算单元格的值
        Dim calcVal As Variant
        calcVal = Range(controlPairs(i)(0)).Value
        
        ' 控制行隐藏：值不等于1就隐藏
        Rows(controlPairs(i)(1)).EntireRow.Hidden = (calcVal <> 1)
    Next i
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

额外调试技巧 #

• 若仍有问题，检查计算单元格的公式是否依赖被隐藏的行：如果公式引用了隐藏行的单元格，隐藏/显示时会强制触发计算，加重循环风险，可调整公式避免不必要的引用。
• 测试时可以在代码开头加Debug.Print Now()，打开VBA立即窗口（Ctrl+G），观察是否重复触发事件，确认循环已被切断。
• 尽量在Worksheet_Calculate里只做必要的行隐藏操作，避免复杂计算或其他耗时操作。

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