21楼推荐我到VBA解决

lpl625

tcdatongye 发表于 2024-8-21 17:55
可以自己先做一遍，把答案写出来，别人才能看出是什么情况

可以改吗？

lpl625

tcdatongye 发表于 2024-8-21 17:55
可以自己先做一遍，把答案写出来，别人才能看出是什么情况

哥哥，改好没？

tcdatongye

Sub 提取()
Set reg = CreateObject("vbscript.regexp")
reg.ignorecase = True
With Sheets(1)
  k = .Cells(65536, 2).End(xlUp).Row
  .Cells(1, 3).Resize(k, 2).ClearContents
  For i = 1 To k
    reg.Pattern = ".*?(^|/)([一-龥]{4,}(?!\d+MHz)([a-z\d-]{4,})|([^/]*°[^/]*))(?=/|$).*"
    If reg.test(Trim(.Cells(i, 2))) Then
        .Cells(i, 4) = reg.Replace(Trim(.Cells(i, 2)), "$3$4")
      Else
        reg.Pattern = ".*?(^|/)(([.\d]+([unp]f|r)?)(?=[±/]).*?(/\d+m?[va])|(?=[^\(/]*\d)([a-z][^/\(]*\-.+?|[\w.]+)(?=[±/\(]|$)).*"
        .Cells(i, 4) = "'" & reg.Replace(Trim(.Cells(i, 2)), "$3$5$6")
    End If
    .Cells(i, 3) = "'" & Split(.Cells(i, 4), "/")(0)
  Next i
End With
End Sub

lpl625

tcdatongye 发表于 2024-8-27 11:47
Sub 提取()
Set reg = CreateObject("vbscript.regexp")
reg.ignorecase = True

D列有3处不同？

tcdatongye

lpl625 发表于 2024-8-27 17:58
D列有3处不同？

Sub 提取()
Set reg = CreateObject("vbscript.regexp")
reg.IgnoreCase = True
With Sheets(1)
  k = .Cells(65536, 2).End(xlUp).Row
  .Cells(1, 3).Resize(k, 2).ClearContents
  For i = 1 To k
    reg.Pattern = ".*?([一-龥\1-\127]+)"
    jj = reg.Replace(Trim(.Cells(i, 2)), "$1") '去除左边杂项字符。
    reg.Pattern = ".*?(^|/)([一-龥]{4,}(?!\d+MHz)([a-z\d-]{4,})|([^/]*°[^/]*))(?=/|$).*"
    If reg.test(Trim(.Cells(i, 2))) Then
        .Cells(i, 4) = reg.Replace(jj, "$3$4")
      Else
        reg.Pattern = ".*?(^|/)(([.\d]+([unp]f|r)?)(?=[±/]).*?(/\d+m?[va])|(?=[^\(/]*\d)([a-z][^/\(]*\-.+?|[\w.]+)(?=[±/\(]|$)).*"
        .Cells(i, 4) = "'" & reg.Replace(jj, "$3$5$6")
    End If
    .Cells(i, 3) = "'" & Split(.Cells(i, 4), "/")(0)
  Next i
End With
End Sub