如何用VBA基于单元格值过滤指定表格列？现有代码异常求助

你的代码出现所有行隐藏的核心问题有两个：

1. 过滤列指定错误：你要过滤表格的第5列，但代码里写的Field:=2，这会去过滤第2列，而非目标的第5列，导致匹配不到内容时所有行被隐藏。
2. 直接用单元格触发AutoFilter不够稳定：对于名为“Data”的结构化表格，直接操作表格对象（ListObject）比操作单个单元格更高效，也能避免因表格位置变动导致的错误。

修正后的基础版代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理E2单元格的变更
    If Not Intersect(Target, Me.Range("E2")) Is Nothing Then
        Dim tbl As ListObject
        Set tbl = Me.ListObjects("Data")
        
        ' 清除现有筛选状态
        tbl.AutoFilter.ShowAllData
        
        ' 根据E2的值设置筛选规则
        If Trim(Me.Range("E2").Value) <> "" Then
            ' 筛选表格第5列（对应参数Field:=5）
            tbl.Range.AutoFilter Field:=5, Criteria1:=Me.Range("E2").Value
        End If
    End If
End Sub

针对1万+行大表格的效率优化版：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("E2")) Is Nothing Then
        ' 关闭屏幕更新与事件触发，避免卡顿和递归
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        
        Dim tbl As ListObject
        Set tbl = Me.ListObjects("Data")
        
        ' 错误处理：防止表格未筛选时执行ShowAllData报错
        On Error Resume Next
        tbl.AutoFilter.ShowAllData
        On Error GoTo 0
        
        If Trim(Me.Range("E2").Value) <> "" Then
            tbl.Range.AutoFilter Field:=5, Criteria1:=Me.Range("E2").Value
        End If
        
        ' 恢复屏幕更新与事件触发
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
End Sub

关键优化说明：

• 用Intersect判断目标单元格，比直接对比Address更灵活，适配E2被批量修改的场景。
• 直接操作ListObject("Data")，结构化表格的筛选逻辑更稳定，不会因表头行移动（比如插入行）导致筛选起点错误。
• 加入错误处理，避免表格未处于筛选状态时ShowAllData抛出异常。
• 关闭屏幕更新和事件触发，大幅降低大表格筛选时的卡顿感，提升执行效率。

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