提取联系方式VBA

nnsea

Sub 提取联系方式()
Set regx = CreateObject("vbscript.regexp")
With regx
    .Global = True
    .Pattern = "\d+-?\d+"
    For Each Rng In [a2:a5]
        Set mat = .Execute(Rng)
        For Each m In mat
        n = n + 1
            Cells(Rng.Row, n + 1) = m
        Next m
        n = 0
    Next Rng
End With
End Sub