Excel多行数据如何去重后合并到一个单元格显示

几千万个网友同时

用个vba凑个热闹
新建 XLSX 工作表.rar (19.43 KB, 下载次数: 115)

2021-12-6 23:19 上传

点击文件名下载附件
新建 XLSX 工作表.rar

丰庆包粥道

大佬代码遗失了能贴出代码分享吗?先谢谢

果合坊坚果

这个顿号，不是后面多，就是前面多，这个还有办法优化吗？

橹棹蓬桅

请查看附件~
新建 XLSX 工作表.rar (9.12 KB, 下载次数: 14)

2021-12-6 23:19 上传

点击文件名下载附件
新建 XLSX 工作表.rar

元聃

A13=IFERROR(INDEX(A$3:A$9,SMALL(IF(MATCH(A$3:A$9,A$3:A$9,)=ROW($1:$7),ROW($1:$7)),ROW(A1))),"")

右拉至B13，然后下拉
C13=TEXTJOIN("、",1,INDEX(C:C,N(IF(($A$3:$A$9=A13)*(MATCH($C$3:$C$9,$C$3:$C$9,))=ROW($1:$7),ROW($3:$9),100))))

下拉
都是数组公式

仁者见仁智者见智

A13 公式
=UNIQUE(A3:B9)

C13 公式
=IF(A13="","",TEXTJOIN("、",,TRANSPOSE(UNIQUE(FILTER($C$3:$C$9,($A$3:$A$9&$B$3:$B$9=A13&B13))))))

家囿佬嘙

PQ

PP

新建 XLSX 工作表.7z (48.98 KB, 下载次数: 12)

2021-12-6 23:19 上传

点击文件名下载附件
新建 XLSX 工作表.7z

梦福人生

还需要去重一下

我乃神

加个UNIQUE去下重

志尚

请查看附件~
新建 XLSX 工作表.rar (9.12 KB, 下载次数: 141)

2021-12-6 23:19 上传

点击文件名下载附件
新建 XLSX 工作表.rar