问如何在单元格中添加一些特定的数字？

EN

Option Explicit

Function sumNums(str As String) As Double
    Dim n As Long
    Static rgx As Object, cmat As Object

    If rgx Is Nothing Then
        Set rgx = CreateObject("VBScript.RegExp")
    End If

    With rgx
        .Global = True
        .MultiLine = True
        .Pattern = "(\-?\d*\.?\d+)"
        If .test(str) Then
            Set cmat = .Execute(str)
            For n = 0 To cmat.Count - 1
                sumNums = sumNums + CDbl(cmat.Item(n))
            Next n
        End If
    End With
End Function

Function SumNumbers(s As String) As Currency
    Dim i As Long
    Dim j As Long

    For i = 1 To Len(s)
        If InStr("-0123456789.", Mid(s, i, 1)) Then
            j = i
            Do 
                i = i + 1
            Loop While InStr("0123456789.", Mid(s, i, 1))
            SumNumbers = SumNumbers + CCur(Mid(s, j, i - j))
        End If
    Next
End Function

=SumNumbers(A1)

Function cal_cm(cl As Range) As Double
    Dim i%, testVal$, result$
    result = "="
    For i = 1 To Len(cl)
        testVal = cl.Characters(i, 1).Text
        If "0123456789+." Like "*" & testVal & "*" Then
            result = result & testVal
        End If
    Next i
    cal_cm = Evaluate(result)
End Function