Excel中如何根据下拉列表选择隐藏或取消隐藏行？

原代码的逻辑仅通过判断B4单元格是否为"True"批量控制行的显示/隐藏，完全未关联多选下拉的选中项，因此无法实现需求。以下是修正后的方案：

假设你的多选下拉列表位于B4单元格，选项数据源为C9:C100，使用以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅在目标单元格为B4时执行逻辑
    If Not Intersect(Target, Range("B4")) Is Nothing Then
        Dim selectedItems As Variant
        Dim cell As Range
        Dim item As Variant
        
        ' 禁用事件触发，防止循环执行
        Application.EnableEvents = False
        
        ' 先隐藏9-100行的所有内容
        Rows("9:100").EntireRow.Hidden = True
        
        ' 拆分B4中的多选值（默认多选以逗号+空格分隔，需与你的实际分隔符一致）
        selectedItems = Split(Target.Value, ", ")
        
        ' 遍历C9:C100，匹配选中项并显示对应行
        For Each cell In Range("C9:C100")
            For Each item In selectedItems
                If Trim(cell.Value) = Trim(item) Then
                    cell.EntireRow.Hidden = False
                    Exit For ' 找到匹配项后跳出内层循环，提升效率
                End If
            Next item
        Next cell
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

关键注意事项： #

• 若你的多选下拉使用的分隔符不是, （逗号加空格），请修改Split函数中的分隔符（比如纯逗号","）
• 默认Excel数据验证不支持多选，若你的下拉列表还没实现多选功能，需先添加对应逻辑：比如在Worksheet_Change中处理，当用户选择新选项时将其追加到B4单元格（而非覆盖原有内容）
• Trim函数用于去除文本前后空格，避免因空格差异导致匹配失败

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