[分享] 從string中取出數字

mhl9mhl9

從string中取出數字,覺得好用,貼出大家分享,出處已不記得了
中文出現亂碼就刪除了

Function GetNumbers(TargetText As Variant) As String
    Dim LenStr As Long
    For LenStr = 1 To Len(TargetText)
        Select Case Asc(Mid(TargetText, LenStr, 1))
        Case 48 To 57
            GetNumbers = GetNumbers & Mid(TargetText, LenStr, 1)
        End Select
    Next
   
    GetNumbers = CDbl(GetNumbers)

End Function