表格里既有座机也有多个手机号码，请教想提取手机号码怎么提取。

关键字：号码 更新时间：2021-07-05 07:50:24 97次访问

用VBA代码处理会比较简单（电话号码在A列，从第二行开始）。按ALT＋F11，进入VBE编辑器，选中左侧“工程-VBAproject”窗口任意位置，点右键插入一个模块，复制下面的代码。

Sub 拆分电话号码()   

Set reg = CreateObject("vbscript.regexp")   

With reg        

     .Global = True       

     .Pattern = "[0-9]+"   

For Each Rng In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)       

      Set mmm = .Execute(Rng)       

      For Each m In mmm          

             n = n + 1           

            Cells(Rng.Row, n + 1) = m       

      Next       

      n = 0    

Next    

End With 

End Sub

相关标签：号码