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

Question

如图在j3里冒号后面有数字，想在k3里把这些数字求和，求大神给个公式！感激不尽

Answer 1

如果是在一个单元格中的，我也没有简单的办法，如果工序不是在一个单元格就好办一点。

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

先替换成一样的，如果有空格，也替换掉。

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

然后再相加

追问

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

追答

那就换个方法试试：

把表格激活为当前；

ALT+ F11出现一个界面，激活thisworkbook，



然后把下面的代码复制到右边：

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

Answer 2

提取文字中的数字公式
=RIGHT(A1,LEN(A1)*2-LENB(A1))
然后再求和所有行数字