如何在已筛选的Excel范围内基于单元格值隐藏行？

现有代码问题分析 #

• 版本1：代码虽定义了iCell为可见区域，但实际循环的是整列AH的所有单元格（Range("AH:AH").Cells），包含全部隐藏行，因此会遍历13000行，导致效率极低。
• 版本2：循环的是可见区域的每个单元格，同一行的多个单元格会重复触发判断，且判断的是当前单元格cl的值（而非对应行AH列的值），只要行内存在值小于10的单元格就会隐藏整行，最终导致所有剩余行被隐藏。

正确实现代码 #

只需针对筛选后可见行的AH列单元格循环判断即可，以下两种方式均能满足需求：

方式1：直接遍历AH列的可见单元格

Dim ahVisibleCells As Range
Dim cell As Range
Dim lastRow As Long

' 获取数据最后一行（以A列为准）
lastRow = Range("A" & Rows.Count).End(xlUp).Row

' 定位AH列中从第2行到最后一行的可见单元格
Set ahVisibleCells = Range("AH2:AH" & lastRow).SpecialCells(xlCellTypeVisible)

' 仅循环可见的AH列单元格
For Each cell In ahVisibleCells
    ' 判断当前单元格值是否小于10，是则隐藏整行
    If cell.Value < 10 Then
        cell.EntireRow.Hidden = True
    End If
Next cell

方式2：遍历可见行后判断AH列

Dim visibleRows As Range
Dim targetRow As Range
Dim lastRow As Long

lastRow = Range("A" & Rows.Count).End(xlUp).Row

' 获取从第2行开始的所有可见行（假设第1行是表头）
Set visibleRows = Range("A2:A" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow

' 循环每一行，判断对应AH列的值
For Each targetRow In visibleRows
    If targetRow.Cells(, "AH").Value < 10 Then
        targetRow.Hidden = True
    End If
Next targetRow

说明 #

两种方式都只会循环筛选后剩余的100-150行，避免了遍历全部13000行，大幅提升运行效率。注意需确保表头在第1行，若表头位置不同，需调整代码中的起始行号。

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