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

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