Excel表格, 如何利用公式把装箱单内, 产品编号对应的箱号全部汇总在一起?

Question

我想把某个产品编号的产品，全部放置的箱号都弄出来，放在一个单元格里面。 想把D列对应的B列跟A列数值，全部用公式汇总到E列在一起，如图
E列公式怎么写呢？谢谢

Answer 1

Sub Test()
    For n = 2 To Range("D65536").End(xlUp).Row
        s = ""
        For r = 2 To Range("B65536").End(xlUp).Row
            If Range("D" & n) = Range("B" & r) Then
                s = s & Range("A" & r) & " "
            End If
        Next
        If s = "" Then
            Range("E" & n) = 0
        Else
            Range("E" & n) = Left(s, Len(s) - 1)
        End If
    Next
End Sub

追问

你好，这个是公式吗？ 我复制进去怎么没有结果呢？》

追答

这是宏代码。
按Alt+F11进入VBA编辑器，插入“模块”，将上述代码复制粘贴在代码区，按F5运行此代码。

Answer 2

如果每个产品编号对应的箱号较多的话，建议用VBA代码。追问

会不会很麻烦？ 不过不麻烦，具体的公式是什么？谢谢

追答

已经有代码了，我就不必重复了。