AI避无可避,那就来吧,让Excel公式飞吧

请阅读以上的图片

1、帮我创建一个 Excel vba 函数、将我选中的单元格区域的数值提取出来并求和；

2、函数名称定义为：提取数值并求和222。

AI经过1秒钟的思考，给你一段VB代码

Function 提取数值并求和222(rng As Range) As Double

    Dim cell As Range

    Dim match As Object

    Dim total As Double

    Dim str As String

    Dim i As Long

    total = 0

    ' 创建正则表达式对象

    Set match = CreateObject("VBScript.RegExp")

    match.Global = True

    match.Pattern = "\d+\.?\d*" ' 匹配整数或小数

    ' 遍历每个单元格

    For Each cell In rng

        str = cell.Value

        If match.test(str) Then

            Set matches = match.Execute(str)

            For i = 0 To matches.Count - 1

                total = total + Val(matches(i).Value)

            Next i

        End If

    Next cell

    提取数值并求和222 = total

End Function

第三步把代码放到VB编辑器里

第四步关闭VB编辑器，在相应单元格里输入=函数名，回车即可