如何为不同位置、满足特定条件的隐藏行创建VBA循环？

你可以将州对应的标识和等级单元格位置存入数组，通过一次循环完成所有州的显示/隐藏控制，代码更简洁，后续新增州只需要在数组里加对应条目即可，兼容你提到的4个等级需求，天然满足不同等级选择的互斥逻辑。

Sub 控制州行显示()
    ' 定义存储州信息的数组，格式为{州缩写, 等级单元格地址}
    Dim stateArr As Variant
    stateArr = Array( _
        Array("AL", "Q74"), _
        Array("AK", "Q99"), _
        Array("AZ", "Q124"), _
        Array("AR", "Q149"), _
        Array("CA", "Q174") _
        ' 后续新增州直接在此处按相同格式添加即可
    )
    
    Dim targetLevel As String
    targetLevel = Range("H9").Value ' 获取选择的目标等级
    
    Dim i As Integer
    ' 先统一隐藏所有州行，避免旧状态残留
    For i = LBound(stateArr) To UBound(stateArr)
        Range(stateArr(i)(0)).EntireRow.Hidden = True
    Next i
    
    ' 循环匹配等级，符合条件的取消隐藏
    For i = LBound(stateArr) To UBound(stateArr)
        If Range(stateArr(i)(1)).Value = targetLevel Then
            Range(stateArr(i)(0)).EntireRow.Hidden = False
        End If
    Next i
End Sub

代码优势 #

• 扩展性强：后续新增州不需要嵌套额外If语句，仅需在数组中添加对应条目即可
• 全等级兼容：不需要单独为High/Low写分支逻辑，后续需要支持Moderate、None等级选择时代码无需调整
• 逻辑严谨：先统一隐藏所有行再放开符合条件的行，不会出现遗漏隐藏的问题
• 维护成本低：所有州的配置集中在数组中，修改对应等级单元格地址或者州标识时不需要改动逻辑代码

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