office-excel计算公式

实际效果

如上图所示，A列是一些计量单位的公式，如何实现合计自动得出前面公式的值呢？

技巧法:

1. 添加辅助列。
2. 批量替换掉文字。
3. 在合计单元格引用辅助列。
4. 将合计选择性粘贴为数值。

5. 替换合计的等号。

   
   技巧方法演示

函数替换法:

思路与技巧法一样，采用函数替换掉多余的文字。再进行计算。

• wps
  在B2单元格输入：

  =EVALUATE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"米",""),"个",""),"厘",""))
  

  然后往下拉。

• Office Excel 2003

• 定义名称：mm

• 引用范围：

  =EVALUATE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"米",""),"个",""),"厘",""))
  

  然后在单元格B2输入：
  =mm
  即可得到正确的结果。

• SUBSTITUTE的函数说明

• EVALUATE的函数说明

VBA自定义函数法

在模块中放入代码：

Function mm(str$) As String
    With CreateObject("ScriptControl")  
        .Language = "JScript"       
        .Eval "function gets(str){return str.replace(/[一-龥]/g,'')}"     
        mm= Evaluate(.codeObject.gets(str))     
    End With    
End Function

然后在B2单元格输入：
=mm(A2)
往下拉即可。

VBA使用演示