[已解决]求高手指教,如何截取以下字段

5544221100

/1"-AI-37043-A2AG

/8"-WO-30017-A2BZ-HT05

/10"-WO-30043-A2BZ-HT05   /10"-WO-3042-A2BZ-HT05

我想截取前两个短横杠之间的字段，求高手指点公式该怎么写

最佳答案

月排行榜 / 总排行榜

tgydslr

2013-12-9 12:07

1. =MID(A1,FIND("-",A1)+1,FIND("a",SUBSTITUTE(A1,"-","a",2))-FIND("-",A1)-1)

复制代码

这个通用些，两个短横线之间的字段多长都有效

跳转到最佳答案楼层

5544221100

在线等，自己先顶个贴

as0810114

=mid(A1,find("-",A1)+1,2)

zhp3

1. =MID(A1,FIND("-",A1)+1,SEARCH("-",A1,FIND("-",A1)+1)-FIND("-",A1)-1)

复制代码

Book1.zip (2.34 KB, 下载次数: 0)

2013-12-9 11:44 上传

点击文件名下载附件

yyyydddd8888

用正则写了一个：
新建 Microsoft Excel 工作表.rar (7.33 KB, 下载次数: 0)

2013-12-9 11:59 上传

点击文件名下载附件

1. Sub RRR()
   
2. Dim st$, i&, j&, k&, brr, arr(1 To 100000, 1 To 1), reg As Object, mat As Object, mats As Object
   
3. Set reg = CreateObject("vbscript.regexp")
   
4. st = "[A-Z]{2}(?=-\d{3,})"
   
5. brr = Range("a1").CurrentRegion
   
6. For i = 1 To UBound(brr)
   
7. With reg
   
8.     .Global = True
   
9.     .ignorecase = False
   
10.     .Pattern = st
    
11.     Set mats = .Execute(brr(i, 1))
    
12.     For Each mat In mats
    
13.        k = k + 1
    
14.        arr(k, 1) = mat
    
15.     Next mat
    
16. End With
    
17. Next i
    
18. Range("d1").Resize(k, 1) = arr
    
19. End Sub
    

复制代码

tgydslr

1. =MID(A1,FIND("-",A1)+1,FIND("a",SUBSTITUTE(A1,"-","a",2))-FIND("-",A1)-1)

复制代码

这个通用些，两个短横线之间的字段多长都有效

5544221100

多谢，问题解决了，tgydslr 的回答最为简洁，设置为最佳了