计算手册和隐藏行

Question

我有一个简单的宏来隐藏电子表格中的某些行：

Set rngStat = ThisWorkbook.Worksheets("Instructions").Range("d4:d15")

With ThisWorkbook.Worksheets("Summary")
    Set rngToHide = Intersect(.Range("B:B"), .UsedRange).SpecialCells(xlCellTypeConstants)
End With
'Application.Calculation = xlCalculationManual
For Each cl In rngStat
    If cl.Offset(, 1).Value = "" Then

        For Each clH In rngToHide
            If UCase(cl.Value) = UCase(clH.Value) Then clH.EntireRow.Hidden = True
        Next clH
    End If
Next cl

它有效，但执行需要几个世纪。所以，我在循环之前使用Application.Calculation = xlCalculationManual。现在，它很快，但并不隐藏任何东西。我无法理解，设置计算手册如何阻止Excel隐藏行。您是否有任何想法我应该如何隐藏行而不必每次都重新计算电子表格？