用函数解决--找出数字

欢欢

不可以，回答无效！呵呵

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

andymark

自定义函数 算不算函数 ?

欢欢

谁能不用   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]