作者：乔山办公网日期：
返回目录：excel表格制作
这样吧，我给你百一个VBA公式，你自己琢磨吧，其他的都度不方便我觉得，就那个自定义公问式EVALUATE让他见鬼去吧，麻烦答得很
Public Function getvalue(ra As Range)
Dim str As String
Dim ms As Object
Set ms = CreateObject("MSScriptControl.ScriptControl")
ms.Language = "VBScript"
str = ra.Formula
getvalue = ms.Eval(str)
End Function
点开发工具->Visaul Basic->右键VBAproject添加模块->粘贴此代回码，然后就能用了
要的是这种效果不？答
本文以win7系统excel2016为例进行演示，具来体步骤如下。
1、本文以问题中的F列为例进行举例，以F1为例，选中上方工具栏中的公式选项卡。
2、点击自定义名称自中的定义名称按钮进入设置百选项卡。
3、在弹出的设置菜单中将单元格命名例如度求值，引用位置选为F1。
4、在需要显示的目标格中输入=求值即可。
如图，将C列公式计算结果放到D列。
1、点击“插入”－“名称”－“定义”。
2、在“在当前工作薄中的名称”下zd的框格中填写一个自定的名称（如gs），在“引用位置”下的框格内输入“＝evaluate(C2)”，然后点击“添加”。确内定退出。
3、在D2单元格输入“＝gs”回车即得到C2单元格公式的结果（a2+b2=2+3=5）。
4、鼠标容移到D2单元格右下角，光标变为黑十字，按住鼠标左键向下拖动到D4，就能得出相应结果了。
用定义名称实现。
光标定位到E3，按CTRL+F3，新建名称：复AA，引用制位置：（假设所在工作表为SHEET1）
=EVALUATE(Sheet1!$D3)
定义名称后，在E3用公式：
=AA
然后zhidao下拉复制填充公式。