如何修改Excel VBA代码，实现用户窗体过滤隐藏特定数据并显示其余数据

实现代码 #

Private Sub CommandButton6_Click() '反向过滤按钮
    If Me.txtSearch.Value = "" Then
        MsgBox "请输入搜索值。", vbOKOnly + vbInformation, "搜索提示"
        Exit Sub
    End If
    
    If Me.cmbAdvanced.Value = Empty Then
        MsgBox "请选择搜索条件"
        Exit Sub
    End If
    
    Application.ScreenUpdating = False
    
    Dim sh As Worksheet, sht As Worksheet
    Dim iColumn As Integer, ish As Long, isht As Long
    
    Set sh = ThisWorkbook.Sheets("Sheet1")
    Set sht = ThisWorkbook.Sheets("Sheet2")
    
    '清除历史筛选与Sheet2数据
    If sh.FilterMode Then sh.AutoFilterMode = False
    sht.Cells.Clear
    
    '定位搜索列
    iColumn = Application.WorksheetFunction.Match(Me.cmbAdvanced.Value, sh.Range("A1:Z1"), 0)
    ish = sh.Range("A" & Rows.Count).End(xlUp).Row
    
    '反向筛选：排除匹配搜索值的行
    sh.Range("A1:O" & ish).AutoFilter Field:=iColumn, Criteria1:="<>" & Me.txtSearch.Value
    
    '将筛选后的可见数据复制到Sheet2
    sh.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy sht.Range("A1")
    Application.CutCopyMode = False
    
    '更新列表框展示
    isht = sht.Range("A" & Rows.Count).End(xlUp).Row
    Me.ListBox1.ColumnCount = 12
    
    If isht > 1 Then
        Me.ListBox1.RowSource = "Sheet2!A1:O" & isht
        MsgBox "已展示排除指定数据后的记录"
        
        '在Sheet1中隐藏匹配搜索值的行（按需启用）
        sh.AutoFilterMode = False
        sh.Range("A1:O" & ish).AutoFilter Field:=iColumn, Criteria1:=Me.txtSearch.Value
        sh.Range("A2:A" & ish).SpecialCells(xlCellTypeVisible).EntireRow.Hidden = True
        sh.AutoFilterMode = False
    Else
        MsgBox "无符合条件的剩余记录"
    End If
    
    Application.ScreenUpdating = True
End Sub

核心修改点 #

• 反向筛选规则：将筛选条件改为<>（不等于）搜索值，直接获取排除目标数据后的结果
• 精准复制数据：使用SpecialCells(xlCellTypeVisible)仅复制筛选后的可见行，避免冗余数据
• 原表隐藏逻辑：新增可选代码块，专门筛选出目标数据并隐藏其整行，满足“隐藏特定数据”的需求
• 交互提示优化：将英文提示替换为中文，贴合使用场景

注意事项 #

• 确保Sheet1的表头位于第一行，数据从第二行开始
• 若无需在原工作表隐藏数据，可删除注释标记的代码段
• 若搜索值包含通配符（如*、?），需添加转义处理：将Criteria1:="<>" & Me.txtSearch.Value改为Criteria1:="<>" & Replace(Replace(Me.txtSearch.Value, "*", "~*"), "?", "~?")

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