EXCEL如何用公式提取单元格内字母后面的数字
例:单元格A1:11099/1WA100/2T40/2WA60/3H80/5H80/7H20需要将1004060808020提取并将数值求和单元格A2:701/1C200...
例:单元格A1 : 11099/1WA100/2T40/2WA60/3H80/5H80/7H20
需要将100 40 60 80 80 20提取并将数值求和
单元格A2 :701/1C2000;9721/2C500
需要将2000 500 提取并将数值求和
也就是有很多类似于A1、A2 单元格这样的内容,需要将单元格中字母后面的数字分别提取出来放在其它单元格,然后再将每个单格中提取出来的数值相加,即A1单元格我想得到的数值为380,但是像A1这样单元格的有1万多行,我没公式必需手工去一个一个用计算机加
或者能把单元格中字母、符号删除也行 展开
需要将100 40 60 80 80 20提取并将数值求和
单元格A2 :701/1C2000;9721/2C500
需要将2000 500 提取并将数值求和
也就是有很多类似于A1、A2 单元格这样的内容,需要将单元格中字母后面的数字分别提取出来放在其它单元格,然后再将每个单格中提取出来的数值相加,即A1单元格我想得到的数值为380,但是像A1这样单元格的有1万多行,我没公式必需手工去一个一个用计算机加
或者能把单元格中字母、符号删除也行 展开
展开全部
按下ALT+F11,菜单:插入-模块,复制下面代码.然后退出
在B1输入=ORDER(A1)
就能求出数字之后.
公式向下填充,就能在B列就出A列数据的提取数字后的结果了.
Public Function order(ByVal n As String) As Single
Dim b As Integer
Dim c As Single
a = Split(n, "/")
b = 0
c = 0
For x = 0 To UBound(a)
For y = 1 To Len(a(x))
If Asc(Mid(a(x), y, 1)) >= 65 And Asc(Mid(a(x), y, 1)) <= 122 Then
b = y
End If
Next
If b <> 0 Then
c = c + Val(Right(a(x), Len(a(x)) - b))
End If
Next
order = c
End Function
在B1输入=ORDER(A1)
就能求出数字之后.
公式向下填充,就能在B列就出A列数据的提取数字后的结果了.
Public Function order(ByVal n As String) As Single
Dim b As Integer
Dim c As Single
a = Split(n, "/")
b = 0
c = 0
For x = 0 To UBound(a)
For y = 1 To Len(a(x))
If Asc(Mid(a(x), y, 1)) >= 65 And Asc(Mid(a(x), y, 1)) <= 122 Then
b = y
End If
Next
If b <> 0 Then
c = c + Val(Right(a(x), Len(a(x)) - b))
End If
Next
order = c
End Function
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
看不太懂,能说的再详细点么?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询