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

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

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

材料/工具

Excel表格

方法

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

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

找到工具栏田为矿似亮路议画，点击“插入”，选择模块。

如图所示为选择后画面。

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

Sub 提取手机号码()

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

Set reg = Creat来自eObject("vbscript.regexp")

reg.Pattern = "1[3-9]\d{9}(?=\D|1[3-9]素究妒范\d{9}|$)"

reg.Global = True

F湖节伟跟专毛征铁学or i = 1 To UBound(arr, 1很今杆动环)

s = arr(i, 1)

If reg.test(s) Then

Set mymatch = reg.Execute(s)

m = 2

F预欢台里or Each mat In 两企就友杂感校列mymatch

C孙ells(i + 1山某雷值充都雷, m) = mat

m = m + 1

Next

End If

Next i

End Sub

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