如何提取括号里外的数据

韬韬他妈

各位亲友，如何提取括号里外的数据？括号有的时候是中文括号，有的时间是英文括号，有的括号在数据的前面，有的括号在数据的后面。加班加点也没有搞出来
印刷结算单据的拆分.rar (728.3 KB, 下载次数: 37)

2016-6-29 05:16 上传

点击文件名下载附件

谢谢老师们的帮助，已解决

jsgj2023

楼主，你这输入工作得规范一下才好。

jsgj2023

1. 括号外的数据=IFERROR(MID(IFERROR(IF(MID(A3,1,FIND("(",A3)-1)="",A3,MID(A3,1,FIND("(",A3)-1)),A3),FIND(")",IFERROR(IF(MID(A3,1,FIND("(",A3)-1)="",A3,MID(A3,1,FIND("(",A3)-1)),A3))+1,99),IFERROR(IF(MID(A3,1,FIND("(",A3)-1)="",A3,MID(A3,1,FIND("(",A3)-1)),A3))
   
2. 括号里的数据=IFERROR(MID(MID(A3,FIND("(",A3),99),1,FIND(")",MID(A3,FIND("(",A3),99))),"")

复制代码

jsgj2023

详见附件，看看是否帮到你？括号统一为英文状态。如要中文状态，请自行修改。

wangjguo44

先把所有的英文左右圆括弧查找替换为中文的括弧（规范！）
C3

1. =IFERROR(MID(A3,FIND("（",A3)+1,FIND("）",A3)-FIND("（",A3)-1),"")

复制代码

B3

1. =SUBSTITUTE(A3,"（"&C3&"）",)

复制代码

EH(Wjg)b.rar (7.93 KB, 下载次数: 15)

2016-6-28 07:15 上传

点击文件名下载附件

tcdatongye

1. Sub 提取()
   
2. myrow = Cells(65536, 1).End(xlUp).Row
   
3. Set reg = CreateObject("vbscript.regexp")
   
4. For i = 3 To myrow
   
5. ss = Cells(i, 1)
   
6. With reg
   
7.   .Global = True
   
8.   .MultiLine = True
   
9.   .Pattern = "\(([^()]+)\)|([^()]+)"
   
10. 
    
11.   Set jj = .Execute(ss)
    
12.   For Each m In jj
    
13.      If m.submatches(0) <> "" Then Cells(i, 3) = m.submatches(0)
    
14.      If m.submatches(1) <> "" Then Cells(i, 2) = m.submatches(1)
    
15.   Next
    
16. End With
    
17. Next i
    
18. End Sub

复制代码

韬韬他妈

tcdatongye 发表于 2016-6-28 08:42

我试了一下，好象不行哦

13284712166@

使用FIND，MID，LEN函数即可。

13284712166@

B2=LEFT(A2,FIND("（",A2)-1)
C2=MID(A2,FIND("（",A2),30)，下拉复制。

tcdatongye

1. Sub 提取()
   
2. myrow = Cells(65536, 1).End(xlUp).Row
   
3. Set reg = CreateObject("vbscript.regexp")
   
4. For i = 3 To myrow
   
5. ss = Cells(i, 1)
   
6. With reg
   
7.   .Global = True
   
8.   .MultiLine = True
   
9.   .Pattern = "[(（]([^()（）]+)[)）]|([^()（）]+)"
   
10.   Set jj = .Execute(ss)
    
11.   For Each m In jj
    
12.      If m.submatches(0) <> "" Then Cells(i, 3) = m.submatches(0)
    
13.      If m.submatches(1) <> "" Then Cells(i, 2) = m.submatches(1)
    
14.   Next
    
15. End With
    
16. Next i
    
17. End Sub
    

复制代码

这是有英文、中文小括号的情况。若有大括号可在匹配式里加。总之无论什么括号均可。也可一边是英文的一边是中文括号的