（VBA版）提取字符串中数字求和练习（参考答案在1楼）

兰色幻想

         原来做过函数的提取数字求和练习，现在要求用VBA来实现，看谁写的代码高效。有两种常用的方法。方法越多奖励越多。
         题目： "我10你们2.2他30" 要求提取出数字并求和，即：10+2.2+30=42.2
         要求用VBA实现。

        参考答案：

1. 
   
2. Sub 参考1()
   
3. m = "我10你们2.2他30"
   
4. For x = 1 To Len(m)
   
5.    If Mid(m, x, 1) Like "[!.0-9]" Then
   
6.       Mid(m, x, 1) = "+"
   
7.    End If
   
8. Next x
   
9. MsgBox Application.Evaluate(m)
   
10. End Sub
    
11. 
    
12. Sub 参考2()
    
13. m = "我10你们2.3他30"
    
14. For x = 1 To Len(m)
    
15.     If Mid(m, x, 1) Like "[!.0-9]" Then
    
16.        k = k + Val(Mid(m, x + 1, 99))
    
17.     End If
    
18. Next x
    
19. MsgBox k
    
20. End Sub
    

复制代码

放浪形骸

游客，如果您要查看本帖隐藏内容请回复

放浪形骸

游客，如果您要查看本帖隐藏内容请回复

lpsh1985

游客，如果您要查看本帖隐藏内容请回复

wbzxz

感觉这个问题的难点就在于连续数字的处理上，嘿嘿。

游客，如果您要查看本帖隐藏内容请回复

wbzxz

哦，有时候还要考虑小数点的情况

游客，如果您要查看本帖隐藏内容请回复

tldrtnnhtg

我试试 会不会

tldrtnnhtg

Sub 乱序中取数字()
    Dim i%, str$, s%, strr$, w As Single
    str = "我10你们2.2他30"
    i = Len(str)
    For s = 1 To i
        If Asc(Mid(str, s, 1)) < 59 And Asc(Mid(str, s, 1)) > 0 Then
            strr = strr & Mid(str, s, 1)
        Else
            strr = strr & "+"
        End If
    Next
    w = Evaluate(strr)
    MsgBox w
End Sub

tldrtnnhtg

Sub 乱序中取数字2()
    Dim i%, str$, s%, strr$, w As Single
    str = "我10你们2.2他30"
    i = Len(str)
    For s = 1 To i
        If Val(Mid(str, s, 1)) > 0 Or Mid(str, s, 1) = "." Or Mid(str, s, 1) = 0 Then
            strr = strr & Mid(str, s, 1)
        Else
            strr = strr & "+"
        End If
    Next
    w = Evaluate(strr)
    MsgBox w
End Sub

tldrtnnhtg

Sub 乱序中取数字3()
    Dim i%, str$, s%, strr$, w As Single
    str = "我10你们2.2他30"
    i = Len(str)
    For s = 1 To i
        If IsNumeric(Mid(str, s, 1)) Or Mid(str, s, 1) = "." Then
            strr = strr & Mid(str, s, 1)
        Else
            strr = strr & "+"
        End If
    Next
    w = Evaluate(strr)
    MsgBox w
End Sub