用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