VBA Autofilter：含多内容单元格的下拉筛选异常求助

我懂你的困扰——现在你的Excel宏筛选B列时，只能找出内容完全等于"Banana"的单元格（比如B3），但你希望所有包含"Banana"的单元格（像B2、B3、B5、B6这类）都能被筛选出来。

问题出在原来的宏用了精确匹配的筛选条件，我们只需要修改筛选规则，用通配符实现"包含匹配"就能解决这个问题。

修改后的完整宏代码 #

Sub Choose_Fruit()
    Dim Kriterium As String
    
    ' 获取F20单元格里的筛选关键词（下拉菜单选中的内容）
    Kriterium = Range("F20").Value
    
    ' 切换到"Fruits"工作表
    Sheets("Fruits").Select
    
    ' 对B列（第2列）应用包含匹配筛选
    ' 注意：这里的范围"$A$1:$B$6"要改成你实际的数据范围
    ActiveSheet.Range("$A$1:$B$6").AutoFilter Field:=2, Criteria1:="*" & Kriterium & "*"
End Sub

关键修改点 #

• 把原来的Criteria1:=Kriterium改成Criteria1:="*" & Kriterium & "*"：
  • *是Excel的通配符，代表任意长度的任意字符。这样不管关键词在单元格内容的开头、中间还是结尾，都会被匹配到。比如Banana / Apple、Banana/ Cherry / Apple这类包含"Banana"的单元格都会被筛选出来。

更健壮的优化版本（推荐） #

如果不想依赖工作表的激活状态（避免因当前工作表不对而出错），可以用直接引用工作表的方式，同时先清除之前的筛选：

Sub Choose_Fruit()
    Dim Kriterium As String
    Dim fruitSheet As Worksheet
    
    ' 定义工作表对象，避免频繁切换激活
    Set fruitSheet = ThisWorkbook.Sheets("Fruits")
    ' 获取筛选关键词，这里假设下拉菜单在当前工作表的F20，若在其他表需补充表名
    Kriterium = Range("F20").Value
    
    ' 先清除之前的筛选状态
    If fruitSheet.FilterMode Then fruitSheet.ShowAllData
    
    ' 应用包含筛选，数据范围按需调整
    fruitSheet.Range("$A$1:$B$6").AutoFilter Field:=2, Criteria1:="*" & Kriterium & "*"
End Sub

这样修改后，再从下拉菜单选择"Banana"，所有包含这个关键词的单元格就都会显示出来了。

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