实现Excel单元格内混合内容里的数字汇总计算

对于Excel单元格内混合内容，例如有文字有数字有字母，如何将数字提取并计算汇总？这里可以通过使用VBA编写自定义函数实现此计算功能。

如下图：

自定义函数：

Function xSum(rng As Range)
    On Error GoTo Proc_Err
    
    Dim I%
    For I = 1 To VBA.Len(rng)
        If Mid(rng, I, 1) Like "[0-9]" Then
            xSum = xSum + Val(Mid(rng, I, Len(rng)))
            I = I + Len(Evaluate(Val(Mid(rng, I, Len(rng)))))
        End If
    Next I
    
Proc_End:
    Exit Function
    
Proc_Err:
    MsgBox Err.Number & "//" & Err.Description
    Resume Proc_End
    
End Function