Excel VBA自动筛选问题，每列有多个input

我正在尝试编写代码来自动筛选“职位代码”列，这是一个三位数字。 这个想法是让用户input他们正在寻找的特定工作代码，macros将返回所有具有相应工作代码的行。 当列中有多个作业代码input时，我遇到了一些问题（某些列可能只有一个作业代码，而其他的则有两个或更多）。 具体来说，使用我写的macros，它只返回包含单个作业代码的行，或者如果我在作业中将作业代码写为XXX ，则只返回包含多个作业代码的行 – 我永远不会得到它返回两种情况。 请参阅下面的代码我正在使用：

Dim JobCode As String

JobCode = InputBox(prompt:="Which Job Code?", Title:="Job Code") ActiveSheet.ListObjects("Table4").Range.AutoFilter Field:=6, Criteria1:="=*JobCode*", Operator:=xlOr, Criteria2:=JobCode 

任何build议将不胜感激。 谢谢

Answer 1

当你在之间放置一些东西时，它会变成一个string， JobCode就是一个variables。

试试这个（ TRIED AND TESTED ）。

 JobCode = InputBox(prompt:="Which Job Code?", Title:="Job Code") ActiveSheet.Range("A1:F7").AutoFilter Field:=6, _ Criteria1:="=*" & JobCode & "*", Operator:=xlOr, Criteria2:=JobCode 

截图：