基于下拉列表结果筛选工作表的VBA实现需求

核心思路 #

利用工作表的Change事件监听G2单元格的变化，一旦下拉选项被选中，自动对C列的文件类型执行筛选操作。

步骤操作 #

1. 打开VBA编辑器
   按Alt+F11快捷键，或者右键你要操作的工作表标签（比如「Sheet1」），选择「查看代码」。

2. 粘贴事件代码
   在弹出的代码窗口中，直接粘贴以下带注释的代码：

   Private Sub Worksheet_Change(ByVal Target As Range)
       ' 只响应G2单元格的内容变化
       If Target.Address = "$G$2" Then
           ' 关闭屏幕刷新，避免操作时的闪烁感
           Application.ScreenUpdating = False
           
           ' 先清除当前工作表的所有筛选状态
           If Me.AutoFilterMode Then Me.AutoFilterMode = False
           
           ' 如果G2有选中值，就对C列（第3列）执行筛选
           If Target.Value <> "" Then
               ' 假设数据表头在第1行，数据区域从A1开始
               Me.Range("A1").CurrentRegion.AutoFilter Field:=3, Criteria1:=Target.Value
           End If
           
           ' 恢复屏幕刷新
           Application.ScreenUpdating = True
       End If
   End Sub
   

3. 测试功能
   回到Excel界面，在G2的下拉列表中选择「Access」「Excel」等选项，表格会自动筛选出C列对应类型的行；清空G2则会显示所有行。

新手注意事项 #

• 这段代码必须放在目标工作表的代码模块里，不能放在标准模块（比如Module1）中，否则事件不会触发。
• 确保数据区域有表头行（第1行是列标题），如果没有表头，需要调整Range("A1").CurrentRegion的范围。

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