VBA中Evaluate方法返回单元素数组而非数值的问题求助

我编写了一个VBA函数用于将数据从一个工作簿复制到另一个。打开目标工作簿后，函数需要评估其中的命名区域“EndRow”。相关代码如下：

Dim destWb As Workbook
Dim destEndRow As Long

Set destWb = GetWorkbook

destEndRow = Evaluate(destWb.Names("EndRow").Value) '此行触发错误13

EndRow的公式为：

=ROW(Sheet1!$B$113)-2

我在其他项目及命名区域中使用Evaluate方法时，它通常会返回公式计算后的数值，但此次却返回了一个仅含单个元素的数组（x(1 to 1)），从而引发错误。该命名区域用于动态获取数据集的结束行，可适应目标工作簿中第113行上方的行插入/删除操作。将代码修改为以下形式后即可正常运行：

destEndRow = Evaluate(destWb.Names("EndRow").Value)(1) '此行运行正常

请问为何Evaluate方法会返回单元素数组而非直接返回数值？

原因解析： #

• ROW函数的返回特性：ROW函数本身就是为返回单元格区域的行号设计的，哪怕只引用单个单元格（比如Sheet1!$B$113），它的返回结果依然是一个包含单个元素的数组，而非直接的纯数值。
• Evaluate的处理逻辑：Evaluate会严格按照公式的返回类型输出结果。如果公式最终返回的是数组（哪怕只有一个元素），它就会保留数组结构，不会自动将其转换为单值。你之前遇到的返回数值的场景，要么是公式本身就是纯数值运算（比如=113-2），要么是使用了SUM、COUNT这类天生返回单值的函数，所以Evaluate直接输出数值。
• 命名区域的底层逻辑：你的命名区域依赖ROW函数，所以Evaluate解析时会继承ROW的数组返回特性，导致结果是单元素数组。而Long类型变量只能接受纯数值，直接赋值就会触发类型不匹配错误（错误13），必须通过(1)提取数组的第一个元素才能正常赋值。

内容的提问来源于stack exchange，提问作者TjInTech