求助帖

vrtongtc

想将表格中如“江苏省南京市鼓楼区城河南路于家巷小区1栋2单元204室”提取为“江苏省南京市鼓楼区城河南路于家巷小区”

想将表格中如“江苏省南京市江宁区东山街道金盛路229号天地新城天心座33栋A单元401室”提取为“江苏省南京市江宁区东山街道金盛路229号天地新城天心座”
Function 提取六级地址(str)
If InStr(str, "区") > 0 Then
    For i = InStr(str, "区") To Len(str)
        If Mid(str, i, 1) = ")" Then Exit For
    Next
提取六级地址 = Left(str, InStr(str, "区"))
End If


If InStr(str, "城") > 0 Then
    For i = InStr(str, "城") To Len(str)
        If Mid(str, i, 1) = ")" Then Exit For
    Next
提取六级地址 = Left(str, InStr(str, "城"))
End If

End Function

用了以上的VB  提取的结果就变成了：
想将表格中如“江苏省南京市鼓楼区城河南路于家巷小区1栋2单元204室”提取为“江苏省南京市鼓楼区城”

想将表格中如“江苏省南京市江宁区东山街道金盛路229号天地新城天心座33栋A单元401室”提取为“江苏省南京市江宁区东山街道金盛路229号天地新城天心座”



这样提取的话，第一条地址匹配到城就结束了，无法满足条件，请大佬帮忙简化修改下，谢谢

yylucke

这种没有规律的，程序是无法完成的。
除非有一张对照表，有对照表了，也就不需要提取了，这成为一个悖论。

JiaDongjun

你需要多举几个例子

Chip_Kenny

太不規範，改過思路。

1. Sub zz()
   
2. Dim ar, s$
   
3. ar = [a2:a3].Value
   
4. s = [a1].Value
   
5. With CreateObject("vbscript.regexp")
   
6.     .Pattern = ".+[" & s & "](?=\d)"
   
7.     For i = 1 To UBound(ar)
   
8.         Cells(i + 1, "b") = .Execute(ar(i, 1))(0)
   
9.     Next
   
10. End With
    
11. End Sub

复制代码

vrtongtc

已上传附件

附件P列为地址，要将门牌号、楼栋等信息剔除，仅保留标准地址

如：“江苏省南京市六合区大厂街道丁家山路碧景山庄小区3栋2单元704室”

剔除后为：“江苏省南京市六合区大厂街道丁家山路碧景山庄小区”

如：“江苏省南京市鼓楼区宁海路街道汉口西路120-200号160号1单元201室”

剔除后为：“江苏省南京市鼓楼区宁海路街道汉口西路120-200号”

vrtongtc

Chip_Kenny 发表于 2018-6-22 12:23
太不規範，改過思路。

好吧，可能表述的不清楚，我吧明细和大概思路做了回复，您在看下。

LMY123

正则实现SPLIT