excel - VBA Excel 可以更快地隐藏超过 300,000 行

Question

我在 excel 中有超过 300.000 行
那我想做这份工作

比较列 C 和 D 和 E 中显示的结果

隐藏所有具有 TRUE 值的行，只显示 FALSE

我正在尝试使用此代码，但隐藏行需要超过 15 分钟

Dim LastRow As Long
Dim i, Hide, popup  As Long 
LastRow = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
  If Range("C" & i).Value = Range("D" & i).Value Then
      Range("E" & i).Value = "True"
  Else
  Range("E" & i).Value = "False"


  End If
 If Cells(x, "E").Value = "True" Then
 Rows(x).Hidden = True

End If

Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Next i

Answer 1

你可以这样做:

Dim LastRow As Long
Dim sht As Worksheet
Set sht = ActiveSheet

LastRow = sht.Range("B" & Rows.Count).End(xlUp).Row

With sht.Range("E2:E" & LastRow)
    .Formula = "=C2=D2"
    .Value = .Value
    .Offset(-1, 0).Resize(.Rows.Count + 1).AutoFilter Field:=1, Criteria1:="FALSE"
End With

那应该更快。在此之前不要关闭计算!