帮忙写个正则表达式，把地址和电话分开来，多谢了

notkonw

这是模拟效果：



帮忙写个正则表达式，把地址和电话分开来
准确最重要，最好能连一个都不要错，拜托了大佬了

HSIAOQIANG

這麽點數據每必要用正則吧?

一烟难禁

\d{3,4}-\d{7,11}|\d{8,11}只会这种，除了银行账号也被识别出来外，其他都OK

魚。。

这么多特殊情况，懒得写，哈哈

wanghan519

有点问题，有个电话号码是用空格分开的，那个没取出来

zpy2

select *,regexp2('.*?(\d+-?\d{6,})|.*',地址电话,1) 电话 from 正则表达式地址电话拆分;

抄一个。

smiletwo

limonet

代码在审核

limonet

Sub a()
    With CreateObject("vbscript.regexp")
        .Pattern = "(.*?)(\d+-?\d{7,})"
        For i = 4 To Range("A65536").End(xlUp).Row
            Cells(i, 2) = .Replace(Cells(i, 1), "$1")
            Cells(i, 3) = .Replace(Cells(i, 1), "$2")
            If Cells(i, 3) = Cells(i, 2) Then Cells(i, 3) = ""
        Next i
    End With
End Sub

xhc陈

(.+)(?= \d+) ?([0-9]+-*\d+)