混合字符串提取数字 开帖啦，已评分

孤单无所谓

1. =MID(A2,MATCH(,MID(A2,ROW(A:A),1)*0,),LEN(A2)-SUM(N(MID(A2,ROW(A:A),1)>"9")))

复制代码

孤单无所谓

1. =MID(A2,MATCH(,MID(A2,ROW($1:15),1)*0,),LOOKUP(1,MID(A2,ROW($1:15),1)*0,ROW($1:15))-MATCH(,MID(A2,ROW($1:15),1)*0,)+1)

复制代码

阳光生活

lucking551

公式有点长：数组公式

1. =MID(A2,MIN(IF(ISNUMBER(-MID(A2,ROW($1:$32),1))*1>0,ROW($1:$32),"A")),MAX(IF(ISNUMBER(-MID(A2,ROW($1:$32),1))*1>0,ROW($1:$32),"A"))-MIN(IF(ISNUMBER(-MID(A2,ROW($1:$32),1))*1>0,ROW($1:$32),"A"))+1)

复制代码

xiaoni

=MID(A2,MATCH(,0*MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1),),MATCH(9,0*MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))-MATCH(,0*MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1),)+1)

xuyouxm

这个公式有点难啊，不知道对不对，看看！

1. =MID(A2,MIN(IF(ISNUMBER(--MID(A2,ROW($1:$50),1))*1,ROW($1:$50),"a")),MAX(IF(ISNUMBER(--MID(A2,ROW($1:$50),1))*1,ROW($1:$50),"a"))-MIN(IF(ISNUMBER(--MID(A2,ROW($1:$50),1))*1,ROW($1:$50),"a"))+1)

复制代码

好长啊！

zx_wl

1. {=MID(A2,MATCH(,MID(A2,ROW($1:$99),1)*0,),COUNT(-(0&MID(SUBSTITUTE(A2,"^",0),ROW(INDIRECT("1:"&LEN(A2))),1))))}

复制代码

xuyouxm

又想了一个，发上来大家一起学习一下。好长啊！

1. =IF(MATCH(0,0*MID($A2,ROW($1:$15),1),)=MATCH(0,0*MID($A2,ROW($1:$15),1),1),MID(A2,MATCH(0,0*MID($A2,ROW($1:$15),1),),MATCH(0,0*MID($A2,ROW($1:$15),1),1)),MID(A2,MATCH(0,0*MID($A2,ROW($1:$15),1),),MATCH(0,0*MID($A2,ROW($1:$15),1),1)-MATCH(0,0*MID($A2,ROW($1:$15),1),)+1))

复制代码

as0810114

hjcotton 发表于 2013-5-8 14:51
LOOKUP("A",RIGHT(LEFT(A2,MATCH(1,-MID(0&A2,ROW($1:141),1))-1),ROW($1:141)))

帅的掉渣，霸气外露啊。

zjyxp

Public Function 提取数字(rg As Range)
Dim reg
  Dim Match, Matches
  Dim str
  Set reg = CreateObject("VBScript.RegExp")
  
  With reg
    .Global = True
    .Pattern = "\d+(\.|\^)?\d+"
    Set Matches = .Execute(rg.Text)
        For Each Match In Matches
            提取数字 = Match
        Next Match
  End With
End Function