EXCEL的一个单元格包含多组文字对应数字（如图），请问如何进行公式计算

如图，1.横向需要计算空粒乘10与其他项对应数字之和，如空粒是8残处是2，其他都是零，则需计算8*10+2是多少；2.纵向需计算每相同文字项对应数字之和，如纵项所有的空粒对应数字之和，如纵项所有异物对应数字之和，3.请问一格只一个文字对应一个数字，但文字数字均不同，可以只对数字进行求和吗，如何实现请问如何实现，能实现吗。
我举个实际的例子，我会根据需要在括号写数，有没有括号不重要，一个项目对应一个数字，数字为零的我一般省略，也可以都写上，写成零。
单元格内计算（就是横向红字数字）有空粒项的对应的数需要乘以10再相加；其他种类的都是对应数字直接相加，纵向是每项相同文字对应后面的数字之和。
不知道大大们懂了吗

举报该文章

相关建议 2017-03-24

因为比较复杂，直接用公式书写麻烦、不易实现，建议使用VBA

Alt+F11，调出VBA，然后“插入”——“模块”

问题1：

Function Suma(Rng As Range) As Integer
    Dim Tmp As String, Arr
    Tmp = Rng.Text
    Tmp = Replace(Tmp, "空粒（板、袋、装量不足）（", "")
    Tmp = Replace(Tmp, "）残（半）片（粒）（", ",")
    Tmp = Replace(Tmp, "）双（多）片（粒）（", ",")
    Tmp = Replace(Tmp, "）漏粉（液）（", ",")
    Tmp = Replace(Tmp, "）异物（", ",")
    Tmp = Replace(Tmp, "）空胶囊（", ",")
    Tmp = Replace(Tmp, "）板面不净（", ",")
    Tmp = Replace(Tmp, "）双帽（", ",")
    Tmp = Replace(Tmp, "）", "")
    Arr = Split(Tmp, ",")
    Suma = 0
    For i = 0 To 6
        If Arr(i) <> "" Then Suma = Suma + Arr(i) * IIf(i = 0, 10, 1)
    Next i
End Function

如果数据在A1，在B1可以输入公式：=Suma（A1）就可以得到和，82

问题2：也可以用VBA循环得到，但是建议将数据先单独取出来再计算。用VBA：

Function EachData(Rng As Range, n) As Integer
    Dim Tmp As String, Arr
    Tmp = Rng.Text
    Tmp = Replace(Tmp, "空粒（板、袋、装量不足）（", "")
    Tmp = Replace(Tmp, "）残（半）片（粒）（", ",")
    Tmp = Replace(Tmp, "）双（多）片（粒）（", ",")
    Tmp = Replace(Tmp, "）漏粉（液）（", ",")
    Tmp = Replace(Tmp, "）异物（", ",")
    Tmp = Replace(Tmp, "）空胶囊（", ",")
    Tmp = Replace(Tmp, "）板面不净（", ",")
    Tmp = Replace(Tmp, "）双帽（", ",")
    Tmp = Replace(Tmp, "）", "")
    Arr = Split(Tmp, ",")

    EachData = IIf(Arr(n - 1) = "", 0, Arr(n - 1))


End Function

使用方法：