在自动筛选器上使用带变量的通配符

Question

我正在处理25,000多个数据行的数据表。我需要对每行数据应用一个公式，但是在应用该公式之前，我想使用过滤器将其范围缩小，以免浪费时间等待它遍历25,000多行数据。

我有一个可变的文本字符串，该字符串采用完整字符串的前两个单词，我想使用带通配符（*）的字符串进行过滤，以下是我所拥有的内容，但是它给我一个错误通配符，还有另一种方法可以完成此操作，还是我有问题？谢谢。

dim find as integer
dim fnm as string

find = Application.WorksheetFunction.find(" ", isearch.fundnmbox.Value, 3)
fnm = Left(isearch.fundnmbox.Value, find)

rows("1:1").Select
    Selection.AutoFilter
'fnm is the variable string
ActiveSheet.Range("$A:$P").AutoFilter Field:=2, Criteria1:="="&fnm&"*", Operator:=xlAnd

'(theres more to the code, just providing what is relevant)