excel同一单元格内有文字和数字没怎样把数字相加

这个只能借助VBA才能解决了。

愿意的话可以帮你。

首先，自定义一个函数（姑且为SumNum），代码如下：

Function SumNum(rng As Range)
Dim str$, L%, i%, j%, arr()
str = rng
L = Len(str)
j = 0
For i = 1 To L
    k = 1
    If IsNumeric(Mid(str, i, 1)) = True Then
        Do While IsNumeric(Mid(str, i + 1, 1)) = True
            k = k + 1
            i = i + 1
        Loop
        ReDim Preserve arr(j)
        arr(j) = Val(Mid(str, i - k + 1, k))
        j = j + 1
    End If
Next
SumNum = Application.Sum(arr())
End Function

函数说明：

参数只有一个，就是单元格对象

使用方法：

开启宏后与自带的函数一样使用。如图：

案例，如附件。

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/fv22yjee3ve23yx7ye.html