Если вы готовы использовать VBA / RegEx, то, возможно, что-то вроде этого:
Данные:

Public Function StripAndSum(Rng As Range) As Double
Dim CL As Range
For Each CL In Rng
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[^0-9,]"
StripAndSum = .Replace(CL.Value, "") + StripAndSum
End With
Next CL
End Function
Обратите внимание, что вам придется поменять ,
на .
, чтобы работать с десятичными знаками. Итак .Pattern = "[^0-9.]"