21楼推荐我到VBA解决

lpl625

类似这样的规格有上万行，怎么快速提取规格里的关键字到右边的列？-Excel函数与公式-ExcelHome技术论坛 -

请见上面链接。
谢谢！
名称                规格                                                                提取关键字
贴片磁珠        300R/100MHZ/0805                                          300R
贴片磁珠        100R/100MHZ/0805                                          100R
贴片电感        功率电感/22uH/±20%/5.4A/12×12×8mm           22uH
贴片电感        功率电感/22mH/±20%/5.4A/12×12×8mm          22mH
贴片电容        陶瓷电容/47uF/±10%/16V/1206TDK/X7R           47uF
贴片电阻        0R/±5%/0603                                                  0R
贴片电阻        普通电阻/470R/±1%/0603                                470R
贴片电阻        普通电阻/470K/±1%/0603                                470k
贴片电阻        普通电阻/4.7K/±1%/0603                                 4.7k
贴片电阻        普通电阻/100K/±1%/0603                               100K
贴片电容        陶瓷电容/1pF/±1%/0603                                 1pF
贴片电容        陶瓷电容/10nF/±1%/0603                               10nF
贴片电容        陶瓷电容/100uF/±1%/0603                             100uF

DevilW

DevilW

1. Sub test()
   
2.     Set reg = CreateObject("vbScript.Regexp")
   
3.     reg.Global = True
   
4.     reg.Pattern = ".*?\b(\d+(\.\d+)?([RK]|[um]H|[unp]F))\b|.+"
   
5.     ar = [b2:b14]
   
6.     For i = 1 To UBound(ar)
   
7.         If reg.test(ar(i, 1)) Then
   
8.             ar(i, 1) = reg.Replace(ar(i, 1), "$1")
   
9.         Else
   
10.             ar(i, 1) = ""
    
11.         End If
    
12.     Next
    
13.     [d2].Resize(UBound(ar), 1) = ar
    
14. End Sub

复制代码

于箱长

16楼已经给你VBA解决方案了呀

于箱长

纯循环法，未采用正则表达式，不管对不对，先练个手

lpl625

DevilW 发表于 2023-8-15 20:06

请发原文件

DevilW

lpl625 发表于 2023-8-15 20:26
请发原文件

代码审核中...

gwjkkkkk

参与一下。。。

约定的童话

SMT的BOM嘛，做库用吗？

lpl625

gwjkkkkk 发表于 2023-8-15 20:42
参与一下。。。

太优秀了，是我想要的。
红色字是完整字，提取时存在前缀丢失及其他问题见附件，请修改！