如何批量提取EXCEL的手机号码

Excel表格是常用的办公软件，为了节约时间，该如何批量提取EXCEL的手机号码呢？

材料/工具

Excel表格

方法

步骤1

点击进入Excel界面，将电话放在第一列，A1为题目或空白。

步骤2

键盘同时按下“Alt+F11”，弹出代码窗口。

步骤3

找到工具栏，点击“插入”，选择模块。

步骤4

如图所示为选择后画面。

步骤5

复制下列代码，粘贴在代码窗口：

Sub 提取手机号码()

    arr = Range("a2:a" & Range("a65536").End(3).Row)

    Set reg = CreateObject("vbscript.regexp")

    reg.Pattern = "1[3-9]\d{9}(?=\D|1[3-9]\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 = 2

            For Each mat In mymatch

                Cells(i + 1, m) = mat

                m = m + 1

            Next

        End If

    Next i

End Sub

步骤6

点击“F5”，运行代码，返回表格，B列与C列已经将手机号码提取成功。