7,785
社区成员




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