VBA Excel中-查找字符串通配符

Question

我正在用excel做一個簡單的搜索引擎，我想制作一些通配符，例如：

我有一個單元格，用戶在其中輸入看起來像這樣的搜索詞（僅數字）：“ 123456”。 然后，我還有另一本工作簿，在其中精確搜索“ 123456”。 我設法做到了。

但是，如何制作通配符？ 例如，我希望用戶能夠搜索：“ 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循環：

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