多项需要使用数组公式，D2输入：
=IF(COUNT(0/(FIND($A$2:$A$100,$C2)*($A$2:$A$100<>"")))
如图
D2公式=LOOKUP(1,0/FIND(A$2:A$5,C2),B$2:B$5)下拉。
用公式很复杂，VBA就很简单，双重循环就可以
把相同的放在同一行吗？？？？？
