基于下拉框选择值通过VBA实现行的动态隐藏/显示

一、前期准备：设置支持多选的下拉框 #

1. 打开Excel的「开发工具」选项卡（未显示的话，在Excel选项中勾选「开发工具」）
2. 点击「插入」→ 选择ActiveX控件里的「组合框（ComboBox）」，在工作表合适位置绘制控件
3. 右键组合框 → 选择「属性」：
   • 将MultiSelect属性设为2 - fmMultiSelectMulti（开启多选功能）
   • 在ListFillRange中填入选项所在的单元格区域（比如$Z$1:$Z$5，假设Z列存了"All"、"Cash"等筛选选项）
   • 可按需调整Width、Height等外观属性

二、VBA代码实现 #

右键工作表标签 → 选择「查看代码」，粘贴以下代码：

Private Sub ComboBox1_Change()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim selectedItems As Collection
    Dim i As Integer
    Dim filterArr() As String
    Dim arrIndex As Integer
    Dim showAll As Boolean
    
    Set ws = Me
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set selectedItems = New Collection
    
    ' 遍历组合框选中项
    showAll = False
    For i = 0 To ComboBox1.ListCount - 1
        If ComboBox1.Selected(i) Then
            If ComboBox1.List(i) = "All" Then
                showAll = True
                Exit For ' 选中All则直接跳过其他选项判断
            Else
                selectedItems.Add ComboBox1.List(i)
            End If
        End If
    Next i
    
    ' 取消原有筛选状态
    ws.Range("A5:A" & lastRow).AutoFilter
    
    ' 执行筛选逻辑
    If showAll Then
        ' 显示所有目标行（前4行始终可见）
        ws.Rows("5:" & lastRow).EntireRow.Hidden = False
    Else
        ' 先隐藏所有目标行，再显示符合条件的行
        ws.Rows("5:" & lastRow).EntireRow.Hidden = True
        arrIndex = 0
        ReDim filterArr(selectedItems.Count - 1)
        
        ' 将选中项存入数组
        For i = 1 To selectedItems.Count
            filterArr(arrIndex) = selectedItems(i)
            arrIndex = arrIndex + 1
        Next i
        
        ' 逐一判断并显示符合条件的行
        For i = 5 To lastRow
            If IsInArray(ws.Cells(i, "A").Value, filterArr) Then
                ws.Rows(i).EntireRow.Hidden = False
            End If
        Next i
    End If
End Sub

' 辅助函数：判断值是否在目标数组中
Private Function IsInArray(valToCheck As Variant, arr As Variant) As Boolean
    Dim element As Variant
    For Each element In arr
        If element = valToCheck Then
            IsInArray = True
            Exit Function
        End If
    Next element
    IsInArray = False
End Function

三、代码逻辑说明 #

1. 前4行锁定可见：代码仅对第5行及以后的行执行隐藏/显示操作，前4行始终保持可见状态
2. 多选处理：遍历组合框的Selected状态收集选中值，若检测到"All"被选中，直接触发全显示逻辑
3. 筛选逻辑：
   • 选中"All"时，取消筛选并显示所有第5行及以后的行
   • 选中其他值时，先批量隐藏目标行，再逐一校验A列值是否在选中列表中，符合条件则取消隐藏
4. 辅助函数IsInArray：快速判断单元格值是否属于选中的筛选范围，提升代码可读性

四、示例效果 #

• 选中"Cash"时，第5-13行（A列含"Cash"的行）会被显示，其余第5行及以后的行隐藏，前4行保持可见
• 选中多个选项（比如"Cash"和"Card"）时，会同时显示A列包含这两个值的行
• 选中"All"时，第5行及以后的所有行都会显示

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