excel - 将一个范围从一个 VB 函数传递到另一个函数

Question

我正在为工作编写一些 VBA 函数，并遇到了一个应该很容易解决的问题，但不知何故我无法解决，尽管我尽了最大努力在这里和 Google 上找到答案。我编写了一个函数，它应该给出列中两个字符串之间的范围:

Function FindRng(StartRng As String, EndRng As String) As Variant
Dim TopOfRange As Single
Dim BottomOfRange As Single

TopOfRange = WorksheetFunction.Match(StartRng, Sheets("InfCom").Range("B:B"), 0)
BottomOfRange = WorksheetFunction.Match(EndRng, Sheets("InfCom").Range("B:B"), 0)

FindRng = Range(Sheets("InfCom").Cells(TopOfRange, 2), Sheets("InfCom").Cells(BottomOfRange, 2)) 
End Function

因此，如果输入 A 和 B 位于第 100 行和第 105 行，则应返回 B100:B105。当我通过调整代码来读取 FindRng = Range(...).Address 来测试这一点时，我确实得到了 $B$100:$B$105。

但是，当我将 FindRng 的结果输入自定义索引匹配函数时，出现错误。功能如下:

 Function subsetPBPC(rngReturn As Range, LookupValueH As Variant, TopOfRange As String, BottomOfRange As String, LookupValueV As Variant) As Variant

subsetPBPC = sPBPC(rngReturn, LookupValueH, FindRng(TopOfRange, BottomOfRange), LookupValueV)

 End Function

问题在于，它似乎不是将 FindRng 的输出读取为范围，而是读取为该范围的内容:当我在嵌入另一个公式的 FindRng 上使用“评估公式”工具时，它将 FindRng 的输出显示为 { A,B,C,D,E} 而不是 $B$100:$B$105，其中 A 到 E 是范围内单元格的内容。我感觉解决方案非常简单，但我不明白。定制索引匹配功能的底层功能已经过测试，一切都非常有效。

Answer 1

设置而不是让。 Let 将表达式的值赋给变量。 Set 将对象引用分配给变量。您想要返回对范围对象的引用，而不是返回范围对象的默认属性生成的值。

用VBA编写

FindRng = Range(...)

正在隐式写入

Let FindRng = Range(...)

随心所欲

Set FindRng = Range(...)

编辑1:
了解 VBA 中对象引用和值之间的区别非常重要。这是与按值或按引用传递参数类似的概念。希望这两个链接有所帮助:
The Let statement on MSDN
The Set statement on MSDN

编辑2:
哦，我想我应该谈谈默认属性!某些对象(例如范围)具有默认属性。如果将范围视为值而不是对象，它将使用默认属性而不是抛出错误，因为它是对象而不是值。对于范围，默认属性是Value。因此，如果您说 A = Range("A1")，那么您实际上是在说 Let A = Range("A1").Value，而您的意思可能是 >设置 A = 范围("A1")。因此，您将获取单元格 A1 中包含的值，而不是表示该单元格的范围对象。