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

以Excel2010为例,如何将格式混乱、数量繁多的联系电话中提取手机号码呢? 最好的方法是:用代码提取。

工具/原料

  • 一、 Excel
  • 二、 待提取的联系电话

方法/步骤

  1. 1

    进入Excel界面,将电话放在第一列,A1写上题目或空白。

    如何批量提取EXCEL的手机号码 Microsoft Office Excel 2007教程 第1张

    2/6

    :同时按下“Alt+F11”,弹出代码窗口

    如何批量提取EXCEL的手机号码 Microsoft Office Excel 2007教程 第2张

    3/6

    注意上方工具栏,点击“插入”,选择模块

    如何批量提取EXCEL的手机号码 Microsoft Office Excel 2007教程 第3张

    4/6

    选择后如图示:

    如何批量提取EXCEL的手机号码 Microsoft Office Excel 2007教程 第4张

    5/6

    复制下列代码,粘贴在代码窗口:

    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

    如何批量提取EXCEL的手机号码 Microsoft Office Excel 2007教程 第5张

    6/6

    按“F5”,运行代码,返回联系电话所在表格,发觉B列与C列已经将手机号码提取成功。

    如何批量提取EXCEL的手机号码 Microsoft Office Excel 2007教程 第6张

    注意事项

    • A列的联系电话中间不得有空格
    • A1是预留写标题的,所写数据不会被代码分析
    • 写给百度经验审批的同志,代码2017年是适用的,但是现在已经2019年了,代码第4行作了很轻微的修改,请批准通过。审批百度经验的同志看完这个注意事项,自己删除这第3个事项即可。我都天天早上申请改代码,现在都不批。

参与评论