试图让 vb 代码接受部分字符串匹配

如何解决试图让 vb 代码接受部分字符串匹配

Function SingleCellExtract(LookupValue As String,LookupRange As Range,ColumnNumber As Integer,Char As String)
    Dim I As Long
    Dim xRet As String
    For I = 1 To LookupRange.Columns(1).Cells.Count
        If LookupRange.Cells(I,1) = LookupValue Then
            If xRet = "" Then
                xRet = LookupRange.Cells(I,ColumnNumber) & Char
            Else
                xRet = xRet & "" & LookupRange.Cells(I,ColumnNumber) & Char
            End If
        End If
    Next
    SingleCellExtract = Left(xRet,Len(xRet) - 1)
End Function

上面的代码创建了一个函数，允许您输入要与列中的一系列单元格匹配的单元格，然后允许您输入要根据匹配返回值的列号。它还可以从由逗号分隔的该列中返回多个值。我是从 this 网页中检索到的。现在，它只返回与所选单元格的完全匹配，我想扩展它以包括部分匹配。我尝试编辑它以使用 Like 运算符并接受通配符，但它似乎不起作用。所选单元格通常包含 A9000、P-6000、P-6000-AL 形式的字符串。我的版本仍然只从列中检索完全相同的字符串。如果我输入P9000，我也希望它检索LP9000、A9000、BL-9000-76、PDP 9000等作为例子。有谁知道我如何使用此代码实现这一目标，或者有更好的选择吗？谢谢