这样吧,我给你一个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添加模块->粘贴此代码,然后就能用了
要的是这种效果不?