提取文本中的第一段数字

雷雷爸

quqiyuan 发表于 2024-5-18 17:10
写个自定义函数试试

感谢老师的帮助，非常强大

雷雷爸

leepoison 发表于 2024-5-18 16:03
后面123也提取出来了

感谢老师，我的不是WPS最新版本，目前有些函数还不支持

mykitami

雷雷爸 发表于 2024-5-18 17:16
感谢老师的帮助，我这个是WPS表格，非常有帮助，但是我前面的字母是不固定的

=LET(_a,MATCH(1=1,ISNUMBER(-MID(A1,SEQUENCE(99),1)),),_c,SUBSTITUTE(A1,LEFT(A1,_a-1),),LEFT(_c,COUNT(-LEFT(_c,SEQUENCE(99)))))

如果没有let函数，就用下面这个，只是有点长
=LEFT(SUBSTITUTE(A1,LEFT(A1,MATCH(1=1,ISNUMBER(-MID(A1,SEQUENCE(99),1)),)-1),),COUNT(-LEFT(SUBSTITUTE(A1,LEFT(A1,MATCH(1=1,ISNUMBER(-MID(A1,SEQUENCE(99),1)),)-1),),SEQUENCE(99))))

我的城市你来过

=IFNA(TEXTBEFORE(TEXTAFTER(A1,"WPS"),"A"),TEXTAFTER(A1,"WPS"))

cnmlgb9998

PQ 正则解决方案。。。。。。。。。。。。。。。。

hxj119

=MID(A1,4,LOOKUP(1,0/MID(A1,4,ROW($1:$9)),ROW($1:$9)))

hxj119

更新公式：
如果数字前面的文本是任意的不固定，公式如下：
=MID(A1,MATCH(1=1,ISNUMBER(--MID(A1,ROW($1:$9),1)),0),LOOKUP(1,0/MID(A1,MATCH(1=1,ISNUMBER(--MID(A1,ROW($1:$9),1)),0),ROW($1:$9)),ROW($1:$9)))

tcdatongye

Sub aa()
Set reg = VBA.CreateObject("vbscript.regexp")
With reg
  .Pattern = ".*?([\d.]+).*"
  For i = 2 To Cells(1, 1).End(xlDown).Row
  Cells(i, 5) = .Replace(Cells(i, 1), "$1")
  Next i
End With
End Sub

jisijie630

=LOOKUP(9^9,MID(A1,FIND("S",A1)+1,ROW($1:$9))/1)

雷雷爸

jisijie630 发表于 2024-5-19 13:55
=LOOKUP(9^9,MID(A1,FIND("S",A1)+1,ROW($1:$9))/1)

感谢帮助，谢谢，但是我前面的字母是不固定的