VBA:在多个条目单元格上使用下拉菜单进行自动过滤

Question

我想过滤包含具有多个输入的单元格的列，例如:

栏目:B

B2:香蕉/苹果
B3:香蕉
B4:苹果/樱桃
B5:香蕉/樱桃/苹果
B6:樱桃/香蕉/椰子

通过在从下拉列表中过滤“香蕉”上使用我的宏，将只显示 B3，但我希望在列出香蕉的情况下拥有所有其他的:B2、B3 等。

我的代码如下所示:

Sub Choose_Fruit()
'
'
   Dim Kriterium As String 
   Range("F20").Select 
   Kriterium = ActiveCell.Value 

    '
   Sheets("Fruits").Select
   ActiveSheet.ListObjects("Table9").Range.AutoFilter Field:=1, Criteria1:=Kriterium
End Sub

知道我做错了什么吗？

Answer 1

拥有 *确实，通配符是要走的路。但是，您可以将其写入 Kriterium本身，或将其传递给 Criteteria1字符串，使其更加健壮。

您的代码最大的问题是您使用了太多 Select , ActiveCell , Activate等。这是如何避免这些:

Sub ChooseFruit()

   Dim Kriterium As String
   Kriterium = Worksheets("SomeSheet").Range("F20")
   WorkSheets("Fruits").ListObjects("Table9").Range.AutoFilter Field:=1, _
                            Criteria1:="*" & Kriterium & "*"

End Sub