正则表达式提取数据

clyfd

原单元格内容

北京路115号1-3-1（2）

提取成
北京路         115号       1      3        1（2）

用
"^([一-﨩]+)(\d+-?\d+?[号#栋甲乙])(\d+)-?(\d+)-?(\d+)$"
可以提取  北京路115号1-3-1
北京路115号1-3-1（2）就不行了，老师看看应该怎么写呢

ww87725244

1. Sub aa()
   
2. Dim d As Object, s$, d2, d3, ar(), k%
   
3. s = "北京路115号1-3-1（2）"
   
4. Set d = CreateObject("vbscript.regexp")
   
5. With d
   
6.     .Global = True
   
7.     .Pattern = "^[一-龟]+|\d+[号]|\d\-|.+"
   
8.     Set d2 = .Execute(s)
   
9.     For Each d3 In d2
   
10.         k = k + 1
    
11.         ReDim Preserve ar(1 To k)
    
12.         ar(k) = Split(d3, "-")(0)
    
13.     Next
    
14. End With
    
15. End Sub

复制代码

源理

^([一-﨩]+)(\d+-?\d+?[号#栋甲乙])(\d+)-?(\d+)-?(\d+.*)$

clyfd

ww87725244 发表于 2019-2-12 20:53

谢谢老师，向您学习

clyfd

源理 发表于 2019-2-12 21:11
^([一-﨩]+)(\d+-?\d+?[号#栋甲乙])(\d+)-?(\d+)-?(\d+.*)$

老师没成功啊，谢谢您

源理

lsdongjh

1. (.*?)(\d+号)(\d)\-(\d)\-(.*)

复制代码

microyip

(.+)(\d+号)[^-]+(-([^-]+))?(-([^-]+))?

Kaohsing

clyfd

源理 发表于 2019-2-13 09:03

谢谢老师，我的问题。成功了