用函数解决--找出数字

欢欢

例  2fg行ksj5--2405     结果为 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  只有自定义函数
关则健(549199361) 21:52:12
好
关则健(549199361) 21:52:14
我支技
小爪(461699029) 21:52:43
concatenate是不行的
小爪(461699029) 21:53:05
猫，我走了
小爪(461699029) 21:53:10
886[:50]

andymark

自定义函数 算不算函数 ?

andymark

自定义函数  

Public Function GetNum(StrValue As String) As String
'用法: GetNum("2fg行ksj5--2405     ")  返回结果: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]