在另一个工作簿中查找多个匹配并从另一列返回值的值

Question

我正在尝试在 VBA 中创建一个超级 VLOOKUP 函数，并且我已经让它在同一张表中正常工作，但我似乎无法弄清楚它是否可以在其他书籍中工作。

这个函数基本上接受三个参数：查找值、查找表和返回列。

查找值用于匹配查找表中的每个单元格，当找到匹配项时，它将从匹配单元格行的返回列中的单元格返回值。

这是我的代码：

Function SUPERLOOKUP(lv As Range, lt As Range, rc As Range)
Dim cell As Range
Dim output As String

For Each cell In lt
    If cell.Value = lv Then
        output = output & Range(ColumnLetter(uRC.Column) & cell.Row).Value & ", "
    End If
Next cell

SUPERLOOKUP = Left(output, Len(output) - 2)
End Function

ColumnLetter 是我用来将列号转换为其字母值的函数。

感谢任何帮助，甚至指出正确的方向。

Answer 1

在这一行：

output = output & Range(ColumnLetter(uRC.Column) & cell.Row).Value & ", "

Range 将引用 ActiveSheet，因此您需要使用工作表引用对其进行限定。

例如（切换到Cells 以避免将列号转换为字母）：

output = output & lt.Parent.Cells(cell.row, uRC.Column).Value & ", "

或

output = output & cell.EntireRow.Cells(uRC.Column).Value & ", "