Excel输入计算式如何自动计算结果

Question

我知道可以用=evaluate()但是这种方法只能用于单个工作表，有没有全工作簿可用的方法呢？就是说有没有可以事先做好工作，然后整个文件的所有工作表都可以自动计算的方法？

Answer 1

利用evaluate()函数，优点就是能直观地看到公式，计算结果一般都放在另一单元格

通过定义名称，其他单元格只输入“=定义的名称就出结果”---

1、公式---定义名称

2、给定名称为“jisuan”，或者想给的其他名字；

引用位置：=evaluate(sheet2！A1)

3、在B1输入=jisuan，往下拖，

4、其他单元格公式也只输入=jisuan就可以了

追问

这种方法我是知道的，可是这样定义的计算方法只能用于一个工作表，我想知道有没有全工作簿可用的方法？

Answer 2

如果计算式的位置固定，可以用VBA

追问

vba也可以接受，位置固定，求代码～

追答

请给出源公式位置以及计算后要放结果的位置，比如说，工作表1～50，A列全部是公式，把结果对应放到B列？

追问

B列是计算式，计算结果放到D列，谢谢啦。

追答

Sub allEval()
Dim sht As Worksheet
Dim rC As Range
On Error Resume Next
For Each sht In Sheets
For Each rC In sht.Range("B1:B" & sht.[B65536].End(xlUp).Row)
    If rC <> "" Then rC.Offset(, 2) = Application.Evaluate(rC.Value)
Next
Next
End Sub

代码比较简单，就不上图了。附件也可以参考，如果有疑惑请追问，

本回答被提问者采纳