表格里既有座機(jī)也有多個手機(jī)號碼,,請教想提取手機(jī)號碼怎么提取,。
用VBA代碼處理會比較簡單(電話號碼在A列,從第二行開始),。按ALT+F11,,進(jìn)入VBE編輯器,選中左側(cè)“工程-VBAproject”窗口任意位置,,點(diǎn)右鍵插入一個模塊,,復(fù)制下面的代碼。
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
相關(guān)推薦
便查問答是一款實(shí)用的網(wǎng)絡(luò)熱門知識問答平臺,專注于分享你不知道的知識,、經(jīng)驗(yàn)及生活問題,,在這里所有人都能找到答案歡迎網(wǎng)友參與討論。