在excel里面如何把在一个单元格里面计算如下的公式，就是说只是认数字不认文字？ =100长度*50宽度*20高度

Question

因为我A列是大量的（100长度*50宽度*20高度）这个只是列举，因为是做工程的，每一个单元格都组成都不同（0.3高度*0.2宽度*(5.9A轴+8.15B轴+5.5C轴+5.5D轴+11.197E轴)）可能更长，如果按高手的做法，我每列一条公式都已经半死了，有没有简单点的方法？~谢谢了

Answer 1

可以作，就是有点麻烦，我先做一下，等下给你答案
假设A1=100长度*50宽度*20高度
则在B1中输入
=LEFT(A1,FIND("长",A1,1)-1)*MID(A1,FIND("*",A1,1)+1,FIND("宽",A1,1)-1-FIND("*",A1,1))*MID(A1,FIND("*",SUBSTITUTE(A1,"*","",1),1)+2,FIND("高",SUBSTITUTE(A1,"*","",1),1)-FIND("*",SUBSTITUTE(A1,"*","",1),1)-1)
就能得到结果了
那就没办法了，要么单元格显示你输入的东西，要么就是计算式。不可能两种都显示的。

Answer 2

你这个，用定义名称吧。
首先要与你达成共识的有以下几点
1，你这些公式是在哪？我们假设是在A列
2、你这些公式前面到底有没有个=，我们假设没有
即，比如你的A1内容是
100长度*50宽度*20高度
方法如下
选中B1(一定要选中)
菜单，插入，名称，定义名称，定义名称，我们假定一个 js
引用位置输入
=EVALUATE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"长度",""),"宽度",""),"高度",""))
确定。
然后在B1输入
=js
回车，即可。如果你A列有大量这样的。
下拉公式即可

追问

这个好像太复杂了，因为我A列是大量的（100长度*50宽度*20高度）这个只是列举，因为是做工程的，每一个单元格都组成都不同（0.3高度*0.2宽度*(5.9A轴+8.15B轴+5.5C轴+5.5D轴+11.197E轴)）可能更长，如果按高手的做法，我每列一条公式都已经半死了，有没有简单点的方法？~谢谢了

追答

我给你的公式，并不是公式，是定义在名称里面的。
在工作表中看到的，只有
=js
而已。
更简单的是写vba代码，但事实上你的情况很规律，根本不需要。
或者用一个自定义函数也可以。
只是你对于名称跟公式有点分不清，我觉得你可以使用excel不是很多，自定义函数怕你看了后会头大。提供给你，如何做你自己斟酌一下吧。

Function 取数(区域 As Range, Optional 序号 As Integer = 0)
Dim Rng As String, i As Integer, Str As String
Select Case 序号
Case 0
For i = 1 To Len(区域(1))
If Val(Mid(区域(1), i, 1)) > 0 Or Mid(区域(1), i, 1) = "0" Or Mid(区域(1), i, 1) = "." Then
取数 = 取数 & Mid(区域(1), i, 1)
End If
Next i
Case 1
Rng = 区域(1)
For i = 0 To 9
Rng = Replace(Rng, i, "")
Next i
取数 = Rng
Case 2
For i = 1 To Len(区域(1))
If Val(Mid(区域(1), i, 1)) > 0 Or Mid(区域(1), i, 1) = "0" Or Mid(区域(1), i, 1) = "+" Or Mid(区域(1), i, 1) = "-" Or Mid(区域(1), i, 1) = "*" Or Mid(区域(1), i, 1) = "/" Or Mid(区域(1), i, 1) = "^" Or Mid(区域(1), i, 1) = "." Or Mid(区域(1), i, 1) = "(" Or Mid(区域(1), i, 1) = ")" Then
取数 = 取数 & Mid(区域(1), i, 1)
End If
Next i
Case 3
For i = 1 To Len(区域(1))
If Val(Mid(区域(1), i, 1)) > 0 Or Mid(区域(1), i, 1) = "0" Or Mid(区域(1), i, 1) = "+" Or Mid(区域(1), i, 1) = "-" Or Mid(区域(1), i, 1) = "*" Or Mid(区域(1), i, 1) = "/" Or Mid(区域(1), i, 1) = "^" Or Mid(区域(1), i, 1) = "." Or Mid(区域(1), i, 1) = "(" Or Mid(区域(1), i, 1) = ")" Then
Str = Str & Mid(区域(1), i, 1)
End If
取数 = Application.Evaluate("(" & Str & ")")
Next i
End Select
End Function

Answer 3

=100&"长度"&50&"宽度"&20&"高度"

追问

这个好相不行吧~？

Answer 4

100长度*50宽度*20高度
单元格中就是这样输的吗，如果是，请再说一下数字的范围，就是最大多少。

追问

数字是指定的，或者在另外一个单元格里面把这个公式的答案显示出来

追答

用宏表函数的已经有人回答了，我来个直接函数的吧，复杂点，假设数据在A1：A100中，
是“100长度*50宽度*20高度”这样输入的，而且最大数字不过1000，B1中输入
=PRODUCT(IF(COUNTIF(A1,"*"&ROW($1:$1000)&{"长度","宽度","高度"}&"*")*ROW($1:$1000),COUNTIF(A1,"*"&ROW($1:$1000)&{"长度","宽度","高度"}&"*")*ROW($1:$1000)))
同时按下CTRL+SHIFT+回车，输入数组公式，用自动填充柄下拉。
如果超过1000也有，适当修改。

Answer 5

把文字删除了

追问

我就是要显示文字呀，这样我的计算稿才知道每一个数字是代表什么呀~

追答

长度 宽度 高度
数值 100 50 20

这样不就清楚了