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

问题如下图中所述。

2025-04-27 23:54:49

推荐回答（1个）

回答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