复制B列，去重复项获得唯一值。
写数组公式： =TEXTJOIN("、",,IF(B$2:B$5=D2,A$2:A$5,""))
数组公式，需按ctrl+shift+enter产生花括号。
textjoin需新版软件支持。
vba吧，。。。。。。。
写代码可以实现
