Excel表格如何提取出来手机号码，不要座机号码？

例子数据：

程序代码：

程序执行效果：

程序文本：

Option Explicit

Sub 提取A列手机号码到B列()

    Dim arr, a, i, j

    arr = ActiveSheet.UsedRange.Resize(, 2)

    For i = 1 To UBound(arr)

        a = Split(Replace(arr(i, 1), "；", ";"), ";")

        For j = LBound(a) To UBound(a)

            a(j) = Trim(a(j))

            If Len(a(j)) >= 11 And (Left(a(j), 1) = "1" Or Left(a(j), 2) = "01") Then

                a(j) = a(j) & ";"

            Else

                a(j) = ""

            End If

        Next j

        arr(i, 2) = Join(a, "")

    Next i

    ActiveSheet.UsedRange.Resize(, 2) = arr

End Sub