Excel VBA实现行自动隐藏/显示——基于多单元格下拉列表选择

嘿，刚好能帮你梳理这个Excel行控制的需求！你要实现的是通过B1和B4的Yes/No下拉选项来控制对应行的隐藏和显示，我把实现逻辑和可运行代码整理得更清晰，方便你理解和维护：

核心是利用Excel的Worksheet_Change事件，监听B1和B4单元格的选择变化，根据选中的"Yes"/"No"值来切换目标行的隐藏状态：

• 当B1选"No"时，隐藏第2、3行；选"Yes"时取消隐藏
• 当B4选"No"时，隐藏第5、6行；选"Yes"时取消隐藏

把这段代码粘贴到对应工作表的模块中（右键工作表标签→「查看代码」，打开VBA编辑器后粘贴）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 监听B1单元格的下拉选择变化
    If Not Intersect(Target, Me.Range("B1")) Is Nothing Then
        ' 统一转大写，兼容大小写输入（比如"no"/"No"都能触发）
        Select Case UCase(Me.Range("B1").Value)
            Case "NO"
                Me.Rows("2:3").EntireRow.Hidden = True
            Case "YES"
                Me.Rows("2:3").EntireRow.Hidden = False
        End Select
    End If
    
    ' 监听B4单元格的下拉选择变化
    If Not Intersect(Target, Me.Range("B4")) Is Nothing Then
        Select Case UCase(Me.Range("B4").Value)
            Case "NO"
                Me.Rows("5:6").EntireRow.Hidden = True
            Case "YES"
                Me.Rows("5:6").EntireRow.Hidden = False
        End Select
    End If
End Sub

• 代码必须放在工作表模块，不能放在标准模块里，否则事件不会触发
• 用UCase()处理选项值，是为了避免因为大小写不一致（比如用户选了"no"而不是"NO"）导致逻辑失效
• 如果后续需要调整控制单元格或者目标行，直接修改代码里的单元格地址（比如把"B1"改成"C2"）和行范围（比如把"2:3"改成"4:5"）就行

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