首先把A列数据复制到D列,然后点击删除重复项按钮,得到你的第二个图D列的数据,然后用我下面给你的自定义函数这样做就可以了,d1单元格输入公式
=aa($A:$A,a1)
然后往下拖就可以了
自定义函数的使用,打开VBA编辑器,在左侧窗口右键插入模块,把下面代码复制过去,然后返回到EXCEL界面,按照上面输入就可以了
function aa(r as range,v as string) as string
dim rr as range,s as string
s=""
for each rr in r
if rr.value=v then
if s<>"" then s=s & ","
s=s & rr.value
end if
next
aa=s
end function
看看上面的行不,如果你还搞不懂的话,我给你做个宏了事
这个用Excel VBA肯定可以做,但如果使用函数的话,还真没试过。建议你研究下Excel VBA。
用VBA帮你做,行不?