使用通配符Excel从列表中替换多个

Question

我试图从我在另一列中创建的列表中删除并替换一长串字符串变量（> 14,000）中的特定拼写错误或冗余。

到目前为止，我可以使用以下代码从列表中专门替换：

Function WordsOut(WordList As Range, TargetString As String) As String
Dim rng As Range, str As String

str = TargetString
For Each rng In WordList
    If InStr(1, str, rng.Value) <> 0 Then
        str = Trim(Replace(str, rng.Value, ""))
    End If
Next
WordsOut = str
End Function

但是，我无法做的是使用通配符作为输入。我希望我的WordList中的一些值为Age **，并让我的函数删除所有的例子。我知道我需要以某种方式使用Find，但我无法弄清楚如何去做。

请帮忙！ :)