Excel VBA隐藏不含SD/SA/SN的行异常问题求助

原代码存在两个关键问题导致错误：

1. 条件判断语法错误：if cell.value = "SD" or "SA" or "SN" 写法无效，VBA中每个条件都需要完整的比较表达式，不能省略cell.value =。
2. 单元格遍历逻辑错误：逐个遍历单元格会重复设置行的隐藏状态——比如某行先出现符合条件的单元格（行设为不隐藏），但后续单元格不符合时，又会把行设为隐藏，最终行的状态由该行最后一个单元格决定，而非整行是否存在目标值。

修正后的代码 #

Sub HideRows_Based_On_Values()
    Dim targetRow As Range
    Dim cell As Range
    Dim keepVisible As Boolean
    
    ' 先取消所有行的隐藏，避免状态残留
    Range("C12:AG37").EntireRow.Hidden = False
    
    ' 遍历范围内的每一行（去重，只处理每行一次）
    For Each targetRow In Range("C12:AG37").Rows
        keepVisible = False
        ' 检查当前行的所有单元格
        For Each cell In targetRow.Cells
            ' 正确的多值判断写法
            If cell.Value = "SD" Or cell.Value = "SA" Or cell.Value = "SN" Then
                keepVisible = True
                Exit For ' 找到目标值就停止检查当前行
            End If
        Next cell
        
        ' 根据检查结果设置行的隐藏状态
        targetRow.EntireRow.Hidden = Not keepVisible
    Next targetRow
End Sub

关键优化点 #

• 按行而非单个单元格遍历，确保每行只判断一次状态
• 找到目标值后立即退出当前行的单元格循环，提升效率
• 先重置所有行的隐藏状态，避免之前的筛选残留影响结果
• 修正了VBA的语法错误（如Sub后加括号、Range参数加引号、完整的条件表达式）

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