用函數(shù)解決--找出數(shù)字

歡歡

例  2fg行ksj5--2405     結(jié)果為 252405    高難度查找題

andysky

這也算高難度？方法不少啊
=SUMPRODUCT(MID(0&A1,LARGE(ISNUMBER(--MID(A1,ROW(1:99),1))*ROW(1:99),ROW(1:99))+1,1)*10^ROW(1:99)/10)

=MMULT(TRANSPOSE(MID(0&A1,LARGE(ISNUMBER(--MID(A1,ROW(1:99),1))*ROW(1:99),ROW(1:99))+1,1)*10^ROW(1:99)/10),ROW(1:99)^0)

歡歡

誰能不用   sum解決   摘錄：深山老貓(38677446) 21:51:29
TNND給一個不是SUM的公式出不
深山老貓(38677446) 21:51:31
來
深山老貓(38677446) 21:51:48
我就不相信一定要用SUN
深山老貓(38677446) 21:51:50
SUM
小爪(461699029) 21:51:55
哈哈
深山老貓(38677446) 21:52:05
我們一起打破小爪的神話！
小爪(461699029) 21:52:11
不用sum  只有自定義函數(shù)
關(guān)則健(549199361) 21:52:12
好
關(guān)則健(549199361) 21:52:14
我支技
小爪(461699029) 21:52:43
concatenate是不行的
小爪(461699029) 21:53:05
貓，我走了
小爪(461699029) 21:53:10
886[:50]

andymark

自定義函數(shù) 算不算函數(shù) ?

andymark

自定義函數(shù)  

Public Function GetNum(StrValue As String) As String
'用法: GetNum("2fg行ksj5--2405     ")  返回結(jié)果:252405

Dim IntLen As Integer
Dim I As Integer
Dim Str As String
Dim StrNum As String
IntLen = Len(StrValue)
For I = 1 To IntLen
     Str = Mid(StrValue, I, 1)
    If Asc(Str) > 47 And Asc(Str) < 58 Then
        StrNum = StrNum & Str
    End If
  Next I

GetNum = StrNum
   
End Function

歡歡

不可以，回答無效！呵呵

pureshadow

爪MM的高難題題,差點沒把我腦子想漏了......

[ 本帖最后由 pureshadow 于 2008-4-10 22:55 編輯 ]

pureshadow

[:30] 還是用的SUM

歡歡

小妖是高手，，，算一個正確的，，，希望后面的不用sum--小爪

Grant

走錯地方~look

tmtony

歡歡不讓用VBA, 我只能傻眼[:42]