更快捷地隐藏空行

Question

我想隐藏的所有行的值在列A的细胞是空白(即空).我试图使用以下代码:

Range("A7:A117").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

但是,A列中的每个单元都有一个VLOOKUP公式,并且xlCellTypeBlanks考虑具有公式的单元格,但没有值,不能为空.

所以我尝试使用以下代码,但它非常慢.

For i = 17 To 117
  If ActiveSheet.Cells(i, 1) = "" Then
    ActiveSheet.Cells(i, 1).EntireRow.Hidden = True
End If

我该如何加快速度？

Answer 1

你为什么不试试AutoFilter:

Range("A7:A117").AutoFilter 1, "<>", , , False