excel表中一个单元格内冒号后面有数字需要提取求和

如图在j3里冒号后面有数字,想在k3里把这些数字求和,求大神给个公式!感激不尽... 如图在j3里冒号后面有数字,想在k3里把这些数字求和,求大神给个公式!感激不尽 展开
 我来答
百度网友7af2f04
2018-02-22 · TA获得超过218个赞
知道小有建树答主
回答量:220
采纳率:84%
帮助的人:72.9万
展开全部
  1. 如果是在一个单元格中的,我也没有简单的办法,如果工序不是在一个单元格就好办一点。

  2. 感觉图片中的冒号类型不一样,有些是英文的,有些是中文的。

  3. 先替换成一样的,如果有空格,也替换掉。

  4. 用公式截取最后的数字字段:=MID(A2,FIND(":",A2,1)+1,LEN(A2)-FIND(":",A2,1))

  5. 然后再相加

追问
没办法啊!我也想把工序都分成各个单元格!但是表格不让改!我也愁!
追答

那就换个方法试试:

  1. 把表格激活为当前;

  2. ALT+ F11出现一个界面,激活thisworkbook,

  3. 然后把下面的代码复制到右边:

Sub xxxx()

Dim xxx() As String

xname = ActiveSheet.Name

xrow = Worksheets(xname).[J65536].End(xlUp).Row

For x = 3 To 100

Str1 = Worksheets(xname).Cells(x, 10).Value

xsum = 0

xxx() = Split(Str1, Chr(10))

For y = 0 To UBound(Split(Str1, Chr(10)))

If InStr(1, xxx(y), ":") > 0 Then

x1 = Val(Split(xxx(y), ":")(UBound(Split(xxx(y), ":"))))

Else

x1 = Val(Split(xxx(y), ":")(UBound(Split(xxx(y), ":"))))

End If

xsum = xsum + x1

Next y

If xsum > 0 Then

Worksheets(xname).Cells(x, 11).Value = xsum

End If

Next x

End Sub

xalj624
2018-02-22 · TA获得超过404个赞
知道小有建树答主
回答量:419
采纳率:64%
帮助的人:63.5万
展开全部
提取文字中的数字公式
=RIGHT(A1,LEN(A1)*2-LENB(A1))
然后再求和所有行数字
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式