这个正则为什么结果只显示第一个数字

gxgjack

Sub 长度()
Dim 正则, i, 字符串, 结果集合
字符串 = Range("p" & 5).Value
Set 正则 = CreateObject("Vbscript.regexp")
正则.Pattern = "\d"
正则.Global = True

    Set 结果集合 = 正则.Execute(字符串)
If 结果集合.Count > 0 Then Range("u" & 5).Value = 结果集合(0)

Set 正则 = Nothing
Set 结果集合 = Nothing
End Sub