隐藏行子需要永远

Question

我有一个电子表格需要切换显示/隐藏取决于 G 列值的行。

我有两个按钮：

1. [Show All] - 这将执行一个 sub 来显示所有行。
2. [Hide FALSE] - 这将执行一个 sub 来隐藏其在 G 列中的值 = FALSE 的任何行

问题是 Sub 只需要跑完 250 行，但完成 sub 大约需要 5 分钟。我向你保证，这与我的 PC 规格无关。

Excel VBA 代码：

'This sub takes about 5 minutes to complete  (WHY?)
Private Sub btnHideFalse_Click()
  Application.ScreenUpdating = False
  Dim i As Integer
  Dim wsSelect As Worksheet
  Set wsSelect = ThisWorkbook.ActiveSheet


  For i = 2 To 250
      'Cells(i,7) point to the current row's column G value
      wsSelect.Rows(i).EntireRow.Hidden = (wsSelect.Cells(i, 7).Value = False)        
  Next i

  Set wsSelect = Nothing

  Application.ScreenUpdating = True

    
End Sub

'This sub works great
Private Sub btnShowAll_Click()
    ThisWorkbook.ActiveSheet.Rows("1:250").EntireRow.Hidden = False
End Sub

Answer 1

更新 UI（隐藏行）可能是 Excel 中最慢的操作。正如您提到的那样，一次性完成要快得多，因此将要隐藏的行构建到一个范围内。此外，读取单元格非常慢，因此将它们一次全部读取到数组中。这是一个例子：

Dim r as range
Dim arr() as variant
    
Set r = ws.Range("A11") ' need an arbitrary row to start the union join below
        
arr = ws.Range("A1:B10").value
    
For x = 1 To 10
   If arr(x, 2) = "MyHideCondition" Then
     Set r = Application.Union(r, ws.Cells(x, 1))
   End If
Next x
        
r.EntireRow.Hidden = True