用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 WithEnd Sub