提取不规则字符-求大佬帮忙

伊人小木木

阿诺斯瓦星呆 发表于 2022-8-18 14:59
作为一个菜鸟，我出来丢人现眼了，利用插件提取两个字符之间内容，然后进一步处理

咦，这是什么，我见识少

伊人小木木

紫色海水 发表于 2022-8-18 15:09
使用正则表达式：
(?:DN|NPS)[0-9/]+

高深了，我陆地小菜鸡，看不懂了

正冬

=LOOKUP("做",MID(SUBSTITUTE(A2,"-",REPT(" ",99)),FIND({"DN","NPS"},SUBSTITUTE(A2,"-",REPT(" ",99))),99))

阿诺斯瓦星呆

伊人小木木 发表于 2022-8-18 15:37
咦，这是什么，我见识少

方方格子，EXCEL常用插件一种
张立良的EXCEL必备工具箱，罗刚君的E灵，和方方格子，三大插件。

伊人小木木

袁勇 发表于 2022-8-18 15:14
“8QBYJ-DN150CF8-PN10-RF-EN-L350”，一样可以提取"DN150CF8"。

前面的问题翻篇啦，大哥，我有最后一个问题能帮忙吗？
同样这个内容
8VFFJ-DN50-PN16-CF8-RF
8VFYJ-DN200-PN16-WCB-RF
8VDYPWJ-DN125-PN16-CF8
8VFPNJ-NPS3/4-150Lb-4A-ASME
8VFPNJ-NPS1-150Lb-4A-ASME
8VFPNJ-NPS11/4-150Lb-4A-ASME-114
8VFPNJ-NPS2-150Lb-4A-ASME
提取”PN“及后面的数字 或" Lb"前面的数字，如”PN16"、"150Lb" 能实现吗，位置不固定，PN后面固定两位数，Lb前面固定三位数。

袁勇

伊人小木木 发表于 2022-8-18 15:34
我没说清楚，您误会了，是“8QBYJ-DN150CF8-PN10-RF-EN-L350”这一类原字符，在"DN150"后面是没有"-"的， ...

公式长一点：=LOOKUP(1,0/(RIGHT(LEFT(TRIM(LEFT(SUBSTITUTE(MID(A3,MIN(FIND({"DN";"NPS"},A3&"DNNPS")),999),"-",REPT(" ",50)),50)),ROW($1:$50)))<="9"),LEFT(TRIM(LEFT(SUBSTITUTE(MID(A3,MIN(FIND({"DN";"NPS"},A3&"DNNPS")),999),"-",REPT(" ",50)),50)),ROW($1:$50)))

ericxzhou

1. Sub test()
   
2.     Dim re, arr, i%
   
3.     Set re = CreateObject("vbscript.regexp")
   
4.     arr = [a1].CurrentRegion
   
5.     With re
   
6.         .Pattern = "(DN|NPS)\d+(/\d+)?"
   
7.         For i = 2 To UBound(arr)
   
8.             arr(i, 3) = .Execute(arr(i, 1)).Item(0)
   
9.         Next
   
10.     End With
    
11.     [a1].CurrentRegion = arr
    
12. End Sub

复制代码

伊人小木木

袁勇 发表于 2022-8-18 16:14
公式长一点：=LOOKUP(1,0/(RIGHT(LEFT(TRIM(LEFT(SUBSTITUTE(MID(A3,MIN(FIND({"DN";"NPS"},A3&"DNNPS")) ...

实属感动到了

ericxzhou

伊人小木木 发表于 2022-8-18 16:10
前面的问题翻篇啦，大哥，我有最后一个问题能帮忙吗？
同样这个内容
8VFFJ-DN50-PN16-CF8-RF

1. Sub test()
   
2.     Dim re, arr, i%
   
3.     Set re = CreateObject("vbscript.regexp")
   
4.     arr = [a1].CurrentRegion
   
5.     With re
   
6.         .Pattern = "PN\d+|\d+Lb"
   
7.         For i = 2 To UBound(arr)
   
8.             If .Execute(arr(i, 1)).Count <> 0 Then
   
9.                 arr(i, 3) = .Execute(arr(i, 1)).Item(0)
   
10.             End If
    
11.         Next
    
12.     End With
    
13.     [a1].CurrentRegion = arr
    
14. End Sub

复制代码

hcm19522

C2=TRIM(MID(SUBSTITUTE(A2,"-",REPT(" ",99)),MATCH(1,MMULT(1-ISERR(FIND({"DN","NPS"},MID(SUBSTITUTE(A2,"-",REPT(" ",99)),ROW($1:$9)*99-98,99))),{1;1}),)*99-98,99))