Question

excel vba 模糊查找。

excel vba 模糊查找。textbox中是一段字符，英文+数字。
怎么查找出A列中包含这些字符的行？
不能是精确查找。只要其中连续十位数是一样的就可以。
比如textbox是P123AB45678
那A列中，
P123AB45678，
123AB45678，
123AB4567890,
123AB45678DE
都得查找出来。如何操作？
因为涉及窗体、listview，所以必须是VBA方式，拜托了。

Answer 1

Function findTen(rng As Range, str$) As Variant
    Dim arr, ret, i%, strL%, r, retn%
    n = Len(str)
    n = IIf(n < 10, 10, n)
    ReDim arr(1 To n - 9)
    ReDim ret(1 To 1)
    For i = 1 To n - 9
        arr(i) = Mid(str, i, 10)
    Next i'所有可能的匹配项
    For Each r In rng'遍历所有单元格匹配
        For i = 1 To n - 9
            If r Like "*" & arr(i) & "*" Then'如果找到加入ret
                retn = retn + 1
                ReDim Preserve ret(1 To retn)
                ret(retn) = r
                Exit For
            End If
        Next i
    Next r
    findTen = ret
End Function

献丑了