A3、B3、C3单元格内数字和汉字混合，如何提取数值相加 [复

wy100909061

[求助] Excel求教大佬！！！
哪位大哥帮助下

砂海

mytto88

Sub kk()
    Dim regx As Object
    Set regx = CreateObject("vbscript.RegExp")
    With regx
        .Global = True
        .Pattern = "\d+\.?\d+"
    End With
    For Each rg In Range("a3:c3")
        For Each mat In regx.Execute(rg.Value)
            num = CDbl(mat) + num
        Next
        rg.Offset(1).Value = num
    Next
End Sub