在excel中写入函数evaluate的结果

Question

我需要创建一个函数：http://i.stack.imgur.com/3JaRw.png

Function result(Ran As Range)

    Application.Volatile

    Dim columnNum  As Integer
    Dim rowNum  As Integer

    columnNum  = ActiveCell.Column
    rowNum  = ActiveCell.Row

    Ran.value = Evaluate(Cells(RowNum  , ColumnNum  - 1).Value)

End Function

它不起作用

如何编写左侧添加的结果？

Answer 1

我在使用名为result的函数时遇到了问题。更改功能名称似乎有效。

见下文：

Public Function doo(ran As Range)
    doo = Evaluate("=" & ran.Value)
End Function