在函数中使用变量，还是使用函数本身？

Question

我的代码中有这个功能：

Function get_header(ByVal rw As Range) As Scripting.Dictionary
    Dim header    As New Scripting.Dictionary
    Dim used      As Range

    Set used = Range(rw.Cells(1, 1), rw.Cells(1, rw.Cells(1, rw.Columns.Count).End(xlToLeft).Column))

    For Each cl In used.Cells
        header.Add cl.Value, cl.Column
    Next
    
    Set get_header = header
End Function

该函数的作用是获取表头并创建列名和相应索引的字典，因此列的顺序对于其余代码而言并不重要。

我的问题是：是否有必要使用单独的变量来存储整个循环中的值，或者我可以

1. 始终编辑返回值（“get_header”），而不是只在最后传递值或
2. 像这样使用 With 结构：

Function get_header(ByVal rw As Range) As Scripting.Dictionary
    Dim used      As Range

    With rw
        Set used = Range(.Cells(1, 1), .Cells(1, .Cells(1, .Columns.Count).End(xlToLeft).Column))
    End With

    With get_header
        For Each cl In used.Cells
            .Add cl.Value, cl.Column
        Next
    End With

End Function

另外，为什么我应该使用这些结构中的任何一个而不是其他结构？ 谢谢大家的建议。

Answer 1

我更喜欢你的第一个示例，而不是在单个函数调用中多次编辑函数的返回值。

根据错误捕获是中断还是静默（即on error resume next），您可能会得到不同的意外结果。重要的是，您可能会得到意想不到的结果，但您并不知道。

如果几个循环运行良好，并且函数结果变量被更新了几次，那么在处理后面的循环时会发生一些错误（由于输入数组的后面部分的输入、范围、范围等问题，甚至只是内存或焦点或其他运行时问题），您将遇到问题：该函数返回一个过早的（因此不正确的）结果，但看起来好像它已经正常运行了。

我建议使用编码来避免这种情况，无论错误是否被抑制。一个简单的方法是不要在每个可能的函数执行路径中多次设置函数结果对象。

您的第一个代码块似乎已经符合这种想法。您的每个备选建议 1 和 2 都没有。

Answer 2

想对此发表评论，但评论太长了：

当我有一个逐步“计算”返回值的函数时，我通常更喜欢使用中间变量，原因如下（请注意，在运行时使用额外的变量是免费的，这不是问题）：

• 命名：我不喜欢为名为 getSomething 的东西赋值。
• 当使用右侧时，它避免了“中间”值和对函数的递归调用之间的歧义：getSomething = getSomething + getSomething(p)。编译器可以处理，但我的大脑呢？没那么多。我发现retVal = retVal + getSomething(p) 更清晰。
• 在执行过程中遇到错误情况时，我可以轻松地执行Exit Function，而无需考虑已经计算的内容。

但归根结底（这也适用于是否不使用With-statement 的问题），有两件事很重要：（1）哪个代码更容易阅读并理解。 和 (2) 哪些代码不太可能出现错误。 因为人脑的工作方式不尽相同：找到你的个人风格并坚持下去。