excel 筛选手机号码 函数

用VBA写个自定义函数实现，自定义函数代码如下：

Public Function tqsj(rng As Range)
For i = 1 To Len(rng.Value)
    If IsNumeric(Mid(rng.Value, i, 1)) Then
        numsj = numsj + 1
        sjh = sjh & Mid(rng.Value, i, 1)
        If numsj = 11 Then
            GoTo 886
        End If
    Else
        numsj = 0
        sjh = ""
    End If
Next i
886
tqsj = sjh
End Function

用法：打开Excel后按下Alt+F11打开VBA编辑界面，然后选“插入”——“模块”——将以上代码复制到新插入的“模块”中关闭VBA编辑界面——回到Excel界面后，假设你的数据在A列中，那你在B列中输入以下公式并下拉即可=tqsj(a1)

注：由于用到了VBA需要修改宏安全性，具体方法百度一下即可。

具体用法见动态图

....图片不会动...附件中是具体步骤的动态图片供参考

输入
=LEFT(A1,11)
回车。

用这个试试：
=TEXT(-LOOKUP(,-RIGHT(CLEAN(A1),ROW(INDIRECT("1:"&LEN(CLEAN(A1)))))),"#")