excel单元格中有数字和文字,怎么只提取其中的数字并求和。
展开全部
如果你除了数字,其它都是汉字字符(包括冒号和逗号),那么用宏可以解决。Alt+F11,点菜单的插入,模块,粘贴如下代码:
Function
qiuhe(xStr
As
String)
Dim
i
As
Integer
Dim
xtmp
As
String
For
i
=
1
To
Len(xStr)
If
Asc(Mid(xStr,
i,
1))
>
0
Then
xtmp
=
xtmp
&
Mid(xStr,
i,
1)
Else
xtmp
=
xtmp
&
"+"
End
If
Next
i
MsgBox
xtmp
qiuhe
=
Evaluate(xtmp)
End
Function
回到Excel,输入比如
=qiuhe(A1)可以把A1里的你这些东东求和。
Function
qiuhe(xStr
As
String)
Dim
i
As
Integer
Dim
xtmp
As
String
For
i
=
1
To
Len(xStr)
If
Asc(Mid(xStr,
i,
1))
>
0
Then
xtmp
=
xtmp
&
Mid(xStr,
i,
1)
Else
xtmp
=
xtmp
&
"+"
End
If
Next
i
MsgBox
xtmp
qiuhe
=
Evaluate(xtmp)
End
Function
回到Excel,输入比如
=qiuhe(A1)可以把A1里的你这些东东求和。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询