拆分地址和电话号码

高度保密

cnmlgb9998 发表于 2024-3-20 22:01
根本用不上 VBA 和 正则，很简单的操作PQ ！！！！！！！！！

看不懂您这个啊

高度保密

liulang0808 发表于 2024-3-20 21:16
Sub test()
    r = Cells(Rows.Count, 1).End(3).Row
    arr = [a1].Resize(r, 2)

版主这个可以写成自定义函数的形式吗？因为我实际使用中要多次调用

高度保密

ykcbf1100 发表于 2024-3-20 21:09
参与一下。。。

不好意思，我考虑不周，遇到下面的，房号后面没有"室"字，有一个空格，然后跟着电话号码，就提取不准确了。
宝鸡市高新十一路钛谷大厦1234 0917-3878765
西安市高新十一路钛谷大厦1234 029-8387 8766

tarim19738

Sub test()
  Dim i%, arr
  For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    arr = Cells(i, 1)
    If InStr(Cells(i, 1), "-") Then
       Cells(i, 3) = Right(Cells(i, 1), 12)
       Cells(i, 2) = Left(Cells(i, 1), Len(arr) - 12)
    Else
       Cells(i, 3) = Right(Cells(i, 1), 11)
       Cells(i, 2) = Left(Cells(i, 1), Len(arr) - 11)
    End If
  Next
End Sub

swl4561255

C2数组公式：

1. =RIGHT(A2,MATCH(1=1,LENB(MID(A2,LEN(A2)-ROW($1:$50),1))=2,))

复制代码

B2公式：

1. =SUBSTITUTE(A2,C2,)

复制代码

ykcbf1100

高度保密 发表于 2024-3-20 23:40
不好意思，我考虑不周，遇到下面的，房号后面没有"室"字，有一个空格，然后跟着电话号码，就提取不准确了 ...

你这个应该不多吧，这是输入不规范造成的。还是手工加一个室字上去更方便了。

xbox1210

不懂正则可以用匹配符，初学者好理解些。

朝露孤烟

不需要VBA，先用智能键CTRL+E提取右边的电话号码，再用SUBSTITUTE替换电话号码得到地址。

高度保密

ykcbf1100 发表于 2024-3-21 10:17
你这个应该不多吧，这是输入不规范造成的。还是手工加一个室字上去更方便了。

数据是从电子发票提取的，电子发票上的肯定不能改了，所以只能是去匹配末尾的电话号码了

高度保密

xbox1210 发表于 2024-3-21 11:03
不懂正则可以用匹配符，初学者好理解些。

这个办法有点意思，只是不知道全国的电话号码，是不是只有11或者12位。