操作方法
进入Excel界面，将电话放在第一列，A1写上题目或空白。
同时按下“Alt+F11”，弹出代码窗口
注意上方工具栏，点击“插入”，选择模块
选择后如图示：
复制下列代码，粘贴在代码窗口： Sub 提取手机号码() arr = Range("a2:a" & Range("a65536").End(3).Row) Set reg = CreateObject("vbscript.regexp") reg.Pattern = "1[34578]\d{9}(?=\D|1[34578]\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
按“F5”，运行代码，返回联系电话所在表格，发觉B列与C列已经将手机号码提取成功。