用函数解决--找出数字

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