VBA的Excel – findstring通配符

我在Excel中做一个简单的search引擎，我想做一些通配符，例如：

我有一个单元格，用户inputsearch词（只有数字）应该看起来像这样：“123456”。 然后，我有另一个工作簿，我准确地search“123456”。 这我设法做。

但是，我怎样才能通配符？ 例如，我希望用户能够search：“123？56”，我会给他的结果：“123456”，“123356”，“123556”等

这是我如何寻找完全匹配：

set rFound = wks.UserRange.Find(strToSearch, LookIn:=xlValues, lookat:=xlwhole, MatchCase:=False) 

有任何想法吗？

谢谢

Answer 1

您可以在循环或Find使用通配符：

 Sub dural2() MsgBox Range("A1:A10").Find(What:="123*56", After:=Range("A1")).Row End Sub 

或者Like一个循环Like ：

 Sub dural() For Each r In Range("A1:A10") If r.Value Like "123*56" Then MsgBox r.Address End If Next r End Sub