Eval在单元格中返回引用？

Question

我尝试使用Eval函数在单元格中放置值：

           With wsCalculations
             .Cells(j, i + 1).Value = Eval(ary(1))
           End With

然而，事情是这总是回归＆＃34; #REF！＆＃34;值。我没想到的东西，就像我MsgBox（Eval（ary（1）））给我一个十进制值。我需要评估值，否则我只看到一个字符串。

这是我使用的评估函数：

        Function Eval(Ref As String)
         Application.Volatile
         Eval = Evaluate(Ref)
        End Function

这里缺少什么？

Answer 1

Evaluate实际返回一个单元格引用，你应该以这种方式显式获取它的值：

Eval = Evaluate(Ref).Value