发现在也包含其他文本

Question

细胞值的总和我有一个单一的细胞内的Excel工作表有很多的值如下：

a=5 
b=10 
c=44 
d=33 
... 

我想提取到的值的总和每个=之后。

我们该怎么做？

Answer 1

试一下这个小用户自定义功能UDF：

Public Function SumInCell(s As String) As Double 
    Dim s2 As String, d As Variant 
    s2 = s & "," 
    ary = Split(s2, "=") 

    SumInCell = 0 
    For i = LBound(ary) + 1 To UBound(ary) 
     s2 = ary(i) 
     d = CDbl(Mid(s2, 1, InStr(1, s2, ",") - 1)) 
     SumInCell = SumInCell + d 
    Next i 
End Function 

例如：

用户定义函数（UDF）是非常容易安装和使用：

1. ALT-F11带来了VBE窗口
2. ALT-I ALT + M打开一个新的模块
3. 粘贴东西在和关闭窗口VBE

如果保存工作簿，UDF将随之保存。 如果您正在使用一个版本的Excel更高然后2003，你必须保存 该文件作为.XLSM而非的.xlsx

要删除UDF：

1. 弹出窗口VBE如上
2. 清晰的代码进行
3. 关闭VBE窗口

从Excel使用UDF：

= SumInCell（A1）

要了解更多关于一般的宏，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

以及有关UDF的细节，请参见：

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

必须启用宏才能使其工作！

Answer 2

假设布局如图ColumnA，复制ColumnA到ColumnB，申请文本对ColumnB柱的=作为分隔符，然后在C5：

=SUM(C1:C4) 

Answer 3

的公式答案，你需要做的是在2个单元所以你不要打的Excel

如果你的价值是在A1的嵌套的限制，

在B1把

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(UPPER(SUBSTITUTE(A1,"=","'")),"A",""),"B",""),"C",""),"D",""),"E",""),"F",""),"G",""),"H",""),"I",""),"J",""),"K",""),"L",""),"M",""),"N",""),"O",""),"P",""),"Q",""),"R",""),"S",""),"T",""),"U",""),"V",""),"W",""),"X",""),"Y",""),"Z","")," ","")&"," 

在C1把

=SUMPRODUCT(MID(B1,FIND("@",SUBSTITUTE(B1,"'","@",ROW(INDIRECT("1:"&LEN(B1)-LEN(SUBSTITUTE(B1,"'",""))))))+1,FIND("*",SUBSTITUTE(B1,",","*",ROW(INDIRECT("1:"&LEN(B1)-LEN(SUBSTITUTE(B1,",",""))))))-(FIND("@",SUBSTITUTE(B1,"'","@",ROW(INDIRECT("1:"&LEN(B1)-LEN(SUBSTITUTE(B1,"'",""))))))+1))+0) 

这需要一段时间才能解决:)