如何基于下拉列表隐藏行？多同名列场景下的实现方案

核心思路是不依赖特定触发单元格，而是检测所有带有下拉列表的单元格变更，再根据选中的值控制目标行的显示状态：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    Dim targetRows As Range
    
    ' 定义需要控制显示隐藏的目标行范围
    Set targetRows = Me.Rows("27:36")
    
    ' 关闭事件触发，避免修改行状态时重复触发Change事件
    Application.EnableEvents = False
    
    On Error GoTo Cleanup ' 确保出错时能恢复事件触发
    
    ' 遍历所有被修改的单元格，适配批量粘贴等多单元格变更场景
    For Each cell In Target
        ' 判断当前单元格是否是带下拉列表（序列类型数据验证）的单元格
        If cell.Validation.Type = xlValidateList Then
            Select Case cell.Value
                Case 1, 2
                    targetRows.Hidden = True
                Case 3
                    targetRows.Hidden = False
                ' 可选：添加其他值的处理逻辑，比如默认隐藏
                ' Case Else
                '     targetRows.Hidden = True
            End Select
        End If
    Next cell
    
Cleanup:
    ' 恢复事件触发，不影响后续Excel操作
    Application.EnableEvents = True
End Sub

关键细节说明 #

• 下拉单元格检测：通过cell.Validation.Type = xlValidateList精准识别下拉列表单元格，避免误触发普通单元格的修改操作。
• 批量场景适配：遍历Target中的每个单元格，支持一次性修改多个下拉单元格的情况。
• 防循环处理：修改行隐藏状态会再次触发Worksheet_Change事件，因此先关闭Application.EnableEvents，操作完成后恢复。
• 错误兜底：添加错误跳转逻辑，确保代码出错时也能恢复事件触发，避免Excel功能异常。

扩展调整 #

如果你的下拉列表不是通过数据验证创建的（比如表单控件下拉框），可以改为通过列范围判断：

' 替换原有的Validation判断为指定列检测（例如下拉列表在A、C、E列）
If Not Intersect(cell, Me.Range("A:A,C:C,E:E")) Is Nothing Then
    ' 后续逻辑保持不变
End If

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