‘壹’ EXCEL单元格文字数字混合求和的公式
'自定义公式-按ALT+F11-插入模块-粘贴代码-将表格另存为启用宏的格式
Function 求和(c As Range)
For Each a In c
If a <> "" Then
d = ""
For i = 1 To Len(a)
b = Mid(a, i, 1)
If b Like "[0-9]" Or b = "." Then d = d & b
If i < Len(a) Then
If Mid(a, i + 1, 1) Like "[0-9]" Or Mid(a, i + 1, 1) = "." Then
Else
d = ""
End If
End If
Next
求和 = 求和 * 1 + d * 1
End If
Next
End Function
