循环判断字符是否是数字就好了，按照你上面的字符串做示例
nr = "张三13812345678"
For i = 1 To Len(nr)
If IsNumeric(CLng(mid(nr, i, 1))) = True Then
Exit For : End If : Next
nr1 = Mid(nr, i, Len(nr)):nr2 = Mid(nr, 1, i-1)
TracePrint nr1&"/"&nr2
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024