如何提取一窜数字里面想要的符号

浓眉大眼的国哥

直接上代码了吗？公式处理不了吗

随风漂散

Sub FilterW()
  r = Cells(Rows.Count, 1).End(xlUp).Row
  ar = Range("A2").Resize(r, 2)
  ReDim br(1 To r, 1 To 3)
  For i = 1 To r - 1
  ss = Filter(Split(ar(i, 1), "-"), "W")
  n = UBound(ss)
  If n > -1 Then
    br(i, 1) = ss(0)
    br(i, 3) = ss(n)
  End If
  If n > 0 Then br(i, 2) = ss(1)
  Next
  Range("B2").Resize(r, 3) = br
End Sub

雾海榛

=IFERROR(FILTERXML("<a><b>"&SUBSTITUTE($A1,"-","</b><b>")&"</b></a>","//b[contains(.,'W')][position()="&TEXT(COLUMN(A1)*(COLUMN(A1)<=LOOKUP(1,-SEARCH(REPT("*w*-",ROW($1:$9)),$A1&"-"),ROW($1:$9))),"[>2]la!st()")&"]"),"")
提取指定文字.rar (34.57 KB, 下载次数: 114)

2021-11-24 18:01 上传

点击文件名下载附件
提取指定文字.rar

固戍老黄

学艺不精，凑活着用
B2输入=IFERROR(TRIM(MID(SUBSTITUTE($A2,"-",REPT(" ",99)),SEARCHB("W",SUBSTITUTE($A2,"-",REPT(" ",99)),1)-98,99)),"")
C2输入=IFERROR(TRIM(MID(SUBSTITUTE($A2,"-",REPT(" ",99)),SEARCHB("W",SUBSTITUTE($A2,"-",REPT(" ",99)),SEARCHB("W",SUBSTITUTE($A2,"-",REPT(" ",99)),1)+1)-98,99)),"")
D2输入=IFERROR(TRIM(MID(SUBSTITUTE($A2,"-",REPT(" ",99)),SEARCH("W",SUBSTITUTE($A2,"-",REPT(" ",99)),(SEARCHB("W",SUBSTITUTE($A2,"-",REPT(" ",99)),SEARCHB("W",SUBSTITUTE($A2,"-",REPT(" ",99)),1)+1)+1))-98,99)),"")

擒流感

371KK01-371W-378M
以这个来说事吧
第一个是371W  第二个为空   最后一个为371W  是这规则吗

吴顺

Sub RegExp()
  Dim RegExp, i%, Match
  For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
  Set RegExp = CreateObject("vbscript.regexp")
  RegExp.Pattern = "\d+W"
  RegExp.Global = True
  Set Match = RegExp.Execute(Cells(i, 1))
  Cells(i, 2) = Match(0)
  If Match.Count > 1 Then Cells(i, 3) = Match(1)
  If Match.Count > 2 Then Cells(i, 4) = Match(Match.Count - 1)
  Next i
End Sub
文字.zip (18.23 KB, 下载次数: 119)

2021-11-24 18:01 上传

点击文件名下载附件
文字.zip

华丰自助火锅羊肉串

回复就是例子啊。只有一个，最后一个与第一个不是重合吗？你不能说只有一个就没有最后一个。