Excel 公式使用索引匹配显示多个值

Question

我有大量的数据（大约 50x2000）数据，它们基本上采用以下形式，尽管数据集如前所述更大。

DistrictNo    LocationA    LocationB    LocationC   
-----------   ---------    ---------    ---------
0001          L1           L2            L3
0002          L1           L4
0003          L1           L5            L6
0004          L2

每个区可以有任意数量的位置，同一个位置可以在任意数量的区中，但 DistrictNo 永远是唯一的。

我需要一个公式（或 VBA），例如，当“L1”输入到单元格时，返回一个包含 0001、0002、0003 和 0004 的列表，当输入“L2”时返回 0001 和0004，当输入“L5”或“L6”时只返回0003。位置在哪一列无关紧要，我只需要行。

目前我对每列使用多个 MATCH 公式，然后在 MATCH 公式返回的行上使用 VLOOKUP，但问题是在上述数据集上，如果输入 L1，它仅返回 0001，因为 MATCH 仅处理第一个值，但如果输入 L2，它将返回 0001 和 0004，因为它们位于不同的列中。

Answer 1

下面的 UDF 会做到这一点。 ：

Public Function DistNo(Rng As Range, crit As String, k As Long) As String
    Dim rngArr() As Variant
    Dim i As Long, j As Long, h As Long

    h = 1

    rngArr = Rng

    For i = LBound(rngArr, 1) To UBound(rngArr, 1)
        For j = LBound(rngArr, 2) + 1 To UBound(rngArr, 2)
            If rngArr(i, j) = crit Then
                If h = k Then
                    DistNo = rngArr(i, 1)
                    Exit Function
                Else
                    h = h + 1
                    Exit For
                End If
            End If
        Next j
    Next i

    DistNo = CVErr(xlErrNA)


End Function

将它放在附加到工作簿的模块中。请勿输入 Worksheet 代码或 ThisWorkbook 代码：

然后你可以像普通公式一样调用它：

=IFERROR(DistNo($A$2:$D$5,$F$2,ROW(1:1)),"")

并根据需要向下复制。

这将使用第一列作为返回值。