編寫一段VBA代碼，一鍵提取地址和電話，分別放在B列和C列。

有些小伙伴看到這種數(shù)據(jù)源，腦子可能會馬上聯(lián)想到使用快速填充進行提取即可，但實際不可取的，主要是A3單元格電話前面，還有3個數(shù)字101，所以快速填充提取就會出現(xiàn)錯誤。給大家推薦使用VBA來提取。

Sub test()

Dim ar, i%, br() As String

Dim reg As Object

Set reg = CreateObject("vbscript.regexp")

reg.Pattern = "\d{4}-\d+|\d{11}$"

ar = Range("a1", Cells(Rows.Count, 1).End(xlUp))

ReDim br(1 To UBound(ar), 1 To 2)

For i = 1 To UBound(ar)

    br(i, 2) = reg.Execute(ar(i, 1))(0)

    br(i, 1) = Replace(ar(i, 1), br(i, 2), "")

Next i

[b:c].Clear

[b1].Resize(UBound(br), 2) = br

End Sub

返回Excel界面，插入一個按鈕，右鍵指定宏，關(guān)聯(lián)上面的代碼，運行即可。