如何在已筛选区域中基于两列双条件隐藏行（Excel VBA）

现有单条件代码 #

你已经实现了单条件隐藏行的VBA代码，如下：

Dim cl, dl As Range, LR As Long, ws As Worksheet

Set ws = ActiveSheet
LR = ws.Range("A" & Rows.Count).End(xlUp).Row

For Each cl In ws.Range("AK2:AK" & LR).SpecialCells(xlCellTypeVisible)
     If cl.Value < 10 Then cl.EntireRow.Hidden = True
Next cl

需求说明 #

需要实现双条件隐藏：当AL列单元格值为"PASS"时，隐藏对应行中H列值不等于1的可见行。

错误代码问题分析 #

你尝试的两次代码存在核心问题：

1. 第一次尝试中，匹配到AL列的"PASS"单元格后，直接把整个H列可见区域赋值给dl，但dl是多单元格区域，无法直接用dl.Value做判断，且没有关联到当前行的H列单元格。
2. 第二次尝试中，每次循环都把整个AL列可见区域赋值给dl，同样无法通过dl.Value判断单个单元格的值，且条件逻辑写反（需求是H列≠1时隐藏，代码写的是H列=1时隐藏）。

正确解决方案 #

方案1：贴近原写法的实现 #

直接遍历AL列的可见单元格，同时关联同一行的H列单元格做判断：

Dim cl As Range
Dim LR As Long
Dim ws As Worksheet

Set ws = ActiveSheet
LR = ws.Range("A" & Rows.Count).End(xlUp).Row

' 遍历AL列的可见单元格（从第2行开始）
For Each cl In ws.Range("AL2:AL" & LR).SpecialCells(xlCellTypeVisible)
    ' 检查当前AL单元格值为PASS，且同一行的H列值不等于1
    If cl.Value = "PASS" And ws.Cells(cl.Row, "H").Value <> 1 Then
        cl.EntireRow.Hidden = True
    End If
Next cl

方案2：按行遍历可见区域 #

先获取所有可见数据行，再逐行判断双条件，逻辑更直观：

Dim ws As Worksheet
Dim LR As Long
Dim visibleRows As Range
Dim row As Range

Set ws = ActiveSheet
LR = ws.Range("A" & Rows.Count).End(xlUp).Row
' 获取第2行到最后一行的所有可见行
Set visibleRows = ws.Range("2:" & LR).SpecialCells(xlCellTypeVisible)

For Each row In visibleRows.Rows
    ' 检查当前行AL列值为PASS，且H列值不等于1
    If row.Columns("AL").Value = "PASS" And row.Columns("H").Value <> 1 Then
        row.EntireRow.Hidden = True
    End If
Next row

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