如何快速在String()中寻找与某一字符串匹配的条目？

[myrfy2004]

在一个下限约为50000的String()中快速寻找到与指定字符相匹配的内容，应如何处理？

[vbman2003]

用函数：filter

[vbman2003]

Dim arr As Variant
    Dim str() As String
    Dim i As Integer
    
    ReDim arr(5000)
    For i = 1 To 5000
        arr(i) = i
    Next
    
    str = Filter(arr, "100")
    For i = 0 To UBound(str)
        Debug.Print str(i)
    Next

匹配100的结果：
100
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1100
2100
3100
4100