21楼推荐我到VBA解决

grf1973

大多数情况都能提取出来。
第一第二行提取有误是因为字符串前后都有不可识别字符（debug显示“???”）
另外建议所有单位统一大小写，不要出现pF,PF,pf,Pf这样的。

grf1973

另外上面代码只提取第一个符合条件的字符串。当然也可以提取所有符合的，但会把很多符合规则都不符合需要的提取出来。

tcdatongye

Sub 提取()
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "^.*?\s*(([^/一-龡]*\d+[^/一-龡]*)+).*"
With Sheets(2)
  k = .Cells(1, 2).End(xlDown).Row
  For i = 1 To k
    .Cells(i, 4) = reg.Replace(.Cells(i, 2), "$1")
  Next i
End With
End Sub

王三哥

提供个思路：提取每行中以/分隔的第1个非中文字符串

tcdatongye

Sub 提取()
Set reg = CreateObject("vbscript.regexp")
reg.ignorecase = True
With Sheets(2)
  k = .Cells(1, 2).End(xlDown).Row
  For I = 1 To k
    reg.Pattern = "^\s*.*?([^/]*?°[^/]*).*|^[一-龡]+/([^/]+/)?(\d+([m-z][hf])?)/.*"
    If reg.test(.Cells(I, 2)) Then
    .Cells(I, 9) = "'" & reg.Replace(.Cells(I, 2), "$1$3")
    Else
    reg.Pattern = "^\s*.*?((?=[^/]*?[a-z])([^\(/一-龡]*\d+[^\(/一-龡]*)+).*"
    .Cells(I, 9) = reg.Replace(.Cells(I, 2), "$1")
    End If
  Next I
End With
End Sub
这个比较准确

lpl625

tcdatongye 发表于 2023-8-16 20:26
Sub 提取()
Set reg = CreateObject("vbscript.regexp")
reg.ignorecase = True

不支持新增吗？指定在哪列显示结果怎么改？

tcdatongye

谁让你划红圈的上部有个空行？可以改成 k = .Cells(65526, 2).End(xlup).Row

lpl625

tcdatongye 发表于 2023-8-18 09:13
谁让你划红圈的上部有个空行？可以改成 k = .Cells(65526, 2).End(xlup).Row

可以增加了，是挺准的。结果怎么显示在对象右边一列？


贴片功率电感/1210POC-682MR/6.8uH/±20%/Isat=1000mA/SRF:120Mhz/3.30×2.67×3.00(mm)/-40℃～+125℃/一体成型//Coilcraft 1210POC-682MR 可以显示“6.8uH”吗？

tcdatongye

你要给个完整版别人才好整呀

tcdatongye

Sub 提取()
Set reg = CreateObject("vbscript.regexp")
reg.ignorecase = True
With Sheets(2)
  k = .Cells(65536, 2).End(xlUp).Row
  For I = 1 To k
    reg.Pattern = "^\s*.*?([^/]*?°[^/]*).*|^[一-龡]+/([^/]+/)?([\.\d]+([m-z][hf])?)/.*"
    If reg.test(.Cells(I, 2)) Then
    .Cells(I, 3) = "'" & reg.Replace(.Cells(I, 2), "$1$3")
    Else
    reg.Pattern = "^\s*.*?((?=[^/]*?[a-z])([^\(/一-龡]*\d+[^\(/一-龡]*)+).*"
    .Cells(I, 3) = reg.Replace(.Cells(I, 2), "$1")
    End If
  Next I
End With
End Sub
这样就可以了