excel表中一个单元格内冒号后面有数字需要提取求和
如果是在一个单元格中的,我也没有简单的办法,如果工序不是在一个单元格就好办一点。
感觉图片中的冒号类型不一样,有些是英文的,有些是中文的。
先替换成一样的,如果有空格,也替换掉。
用公式截取最后的数字字段:=MID(A2,FIND(":",A2,1)+1,LEN(A2)-FIND(":",A2,1))
然后再相加
没办法啊!我也想把工序都分成各个单元格!但是表格不让改!我也愁!
那就换个方法试试:
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