string - 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