使用通配符搜索

Question

在下面的代码中，shLook 是一个包含文本项列表的工作表，我希望通过迭代 rowSt 表示的行来搜索工作表 shSource 中的字符串。

LPosition = InStr(1, shSource.Cells(rowSt, 18), shLook.Cells(i, 1).Value)

这很好用，但是如果shLook 中的任何文本包含通配符，它​​将不再能够在shSource 中找到相应的字符串。

是否有另一种方法来实现这一点，以便我可以将通配符放入文本项列表中？

Answer 1

如果你只是想知道字符串是否存在，你可以使用：

Dim found As Boolean
Dim searchString As String
searchString = shLook.Cells(i, 1).Value
If Left(searchString, 1) <> "?" Then searchString = "*" & searchString
If Right(searchString, 1) <> "?" Then searchString = searchString & "*"
found = shSource.Cells(rowSt, 18).Value Like searchString

如果您想知道字符串开始的位置，则需要在执行 Instr 之前去掉通配符：

If Found Then
    LPosition = InStr(shSource.Cells(rowSt, 18), Replace(Replace(searchString, "?", ""), "*", ""))
End If

注意：你不能只做第二部分而不做第一部分，因为在 "XYZABCIJK" 中搜索 "?ABC" 时会得到错误匹配。