通过下拉列表实现Excel Table自动筛选的VBA实现求助

• 步骤1：将代码绑定到工作表变化事件
  按Alt+F11打开VBA编辑器，在左侧工程资源管理器中找到你存放表格和下拉列表的工作表，双击该工作表打开代码编辑窗口。
• 步骤2：粘贴完整可运行的VBA代码
  将以下代码粘贴到打开的代码编辑窗口中：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当下拉列表所在的B4单元格内容变化时执行操作
    If Intersect(Target, Me.Range("B4")) Is Nothing Then Exit Sub
    
    On Error GoTo ErrHandler ' 错误处理，避免异常导致事件锁定
    Application.EnableEvents = False ' 关闭事件触发，防止代码执行时反复触发Change事件
    
    ' 按B4选中的值筛选Orders表的Order Status列
    Me.ListObjects("Orders").Range.AutoFilter _
        Field:=Me.ListObjects("Orders").ListColumns("Order Status").Index, _
        Criteria1:=Me.Range("B4").Value
    
ErrHandler:
    Application.EnableEvents = True ' 恢复事件触发
    If Err.Number <> 0 Then MsgBox "筛选出错：" & Err.Description
End Sub

代码说明：

• 对比原有硬编码Field:=5的写法，此处用列名匹配列索引，后续调整表格列顺序也不会影响筛选逻辑
• 增加了单元格变化判定和事件锁逻辑，不会触发不必要的执行和循环调用
• 步骤3：测试功能
  关闭VBA编辑器，将文件保存为.xlsm格式（启用宏的工作簿格式）。重新打开文件后启用宏，在B4单元格的下拉列表中选择不同选项，表格会自动按选中值完成筛选。
• 常见异常排查
  • 筛选无反应：确认文件打开时已启用宏，确认表格名Orders、列名Order Status拼写完全匹配你的实际表格内容
  • 提示列不存在：检查你表格中状态列的表头名称，和代码中ListColumns("")内的文本保持完全一致

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