正则--在不规则的文本里提取手机号码

Sub 提取手机号码()

Cells(1, 4).Resize(100, 5).ClearContents
    arr = Range("a2:a" & Range("a65536").End(3).Row)
    Set reg = CreateObject("vbscript.regexp")
   reg.Pattern = "1[3578]\d{9}(?=\D|1[3578]\d{9}|$)"

    reg.Global = True
    For i = 1 To UBound(arr, 1)
        s = arr(i, 1)
        If reg.test(s) Then
            Set mymatch = reg.Execute(s)
            m = 5
            For Each mat In mymatch
                Cells(i + 1, m) = mat
                m = m + 1
            Next
        End If
    Next i

End Sub