Function sz(xstr As String) Dim i As Integer Dim n For i = 1 To Len(xstr) If Mid(xstr, i, 1) = 1 And IsNumeric(Mid(xstr, i, 11)) Then n = Mid(xstr, i, 11) If Len(n) = 11 Then sz = sz & "/" & n End If End If Next i If Len(sz) Then sz = Right(sz, Len(sz) - 1) Else sz ="" End If End Function
这样就创建了一个自定义的函数sz()用来提取手机号,我们直接在公式里面输入
=sz(A2)

不管是几个手机号码,都可以快速的将它提取出来。
你学会了么,自己动手试试吧~
,