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

Question

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

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

标签： excelvbaexcel-formula