求高手帮我解决EXCEL 一对多查找的问题！

Question

问题如下图中所述。

Answer 1

Sub jerrys() '【注意】Excel中，Alt+F11，插入，模块，粘贴这段代码，然后F5
    Dim rng1 As Range: Set rng1 = [A2:B14] '改成 楼号的单元格范围
    Dim rng2 As Range: Set rng2 = [D3:D6] '改成被统计尺寸的单元格范围
    Dim s$

    For Each i2 In rng2
    s = ""
        For Each i1 In rng1
            If i1.Value = i2.Value Then
                s = s & i1.Offset(0, -1) & ","
            End If
            i2.Offset(0, 1) = s
        Next
    Next
End Sub

Answer 2

Sub 合并()
Columns("E") = ""
Dim I%, K%
For I = 3 To Range("B65536").End(xlUp).Row
For K = 3 To Range("D65536").End(xlUp).Row
If Cells(I, "b") = Cells(K, "d") Then
Cells(K, "E") = Cells(K, "E") & "," & Cells(I, "A")
End If
Next
Next
End Sub
运行这个代码即可本回答被网友采纳

Answer 3

放到一个单元格做公式太复杂，不如简单化一点，放到同一行
E3输入
=index(a:a,small(if($b$3:$b$100=$d3,row($3:$100),1000),column(a1)))&""
数组公式，先按住CTRL+SHIFT,最后回车
公式右拉再下拉