在Excel中，如何在数字和文字中提取数字进行计算？

周晗露 · 发表于 2010-7-21 18:18

VBA自定义函数

Function andy(x As Range)
For i = 1 To Len(x)
   If Val(Mid(x, i, 1)) > 0 Or Mid(x, i, 1) = "0" Or Mid(x, i, 1) = "+" Or Mid(x, i, 1) = "-" Or Mid(x, i, 1) = "*" Or Mid(x, i, 1) = "/" Or Mid(x, i, 1) = "^" Or Mid(x, i, 1) = "mod" Or Mid(x, i, 1) = "." Or Mid(x, i, 1) = "(" Or Mid(x, i, 1) = ")" Then
   Q = Q & Mid(x, i, 1)
   End If
   andy = Application.Evaluate("(" & Q & ")")
  Next i
End Function

洋葱25斤*单价1.2元+油6KG*单价3元放在A1,B1输入=andy(A1)

比如数据在A1，结果要放在B1。
选择B1
点击插入菜单，定义一个名称：求和=EVALUATE(sheet1!A1)
B1中输入=求和

[ 本帖最后由周晗露于 2010-7-21 18:43 编辑 ]

周晗露 · 发表于 2010-7-21 18:45

=andy(A1)*7.85/1000

lxbinternet · 发表于 2010-7-21 21:44

弱弱的说一句，牛人太多了；

胡剑0227 · 发表于 2010-7-22 10:00

原帖由 wangg913 于 2010-7-20 14:12 发表
定义名称
xx=EVALUATE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(Sheet1!$A1,"-","("),"x",")*(")&")","~","*0.5+0.5*")&"*7.85/1000000")
然后再单元格输入
=xx

呵呵，我想我也会选用这种方式。在本例中这种方式还是比较匹配的。

大街小巷 · 发表于 2010-7-22 13:45

公式看的我都眼晕了，牛，

hanhuang88 · 发表于 2012-6-20 10:45

很想懂，有人教吗

511613475 · 发表于 2012-10-31 21:07

不是一般的牛啊

		自动登录	找回密码
密码			免费注册

[求助] 在Excel中，如何在数字和文字中提取数字进行计算？

单元格计算，VBA自定义函数+自定义