如何将相同项目的编号进行串联并使用特定字符分隔？

作者：绿色风分类：时间：2022-08-17 浏览：101

楼主 Zaezhong	Q：如下图，要求将E2单元格相同项目的的编号进行串联，并且使用特定的分隔符将不同的多个编号分隔？ A： Function CONNECTIF(rng1 As Range, criteria As Range, rng2 As Range, Optional deli As String = " ") Application.Volatile Dim i&, arr1, arr2, Str$ arr1 = Intersect(rng1, rng1.Parent.UsedRange).Value arr2 = Intersect(rng2, rng2.Parent.UsedRange).Value For i = 1 To UBound(arr1) If CStr(arr1(i, 1)) = criteria(1).Text Then Str = Str & arr2(i, 1) & deli Next CONNECTIF = Left$(Str, Len(Str) + (Len(deli) > 0)) End Function 参数说明见附件使用方法=CONNECTIF(A:A,E2,B:B)或者=CONNECTIF(A:A,E2,B:B," ") 连接文本.zip
2楼 herelazy	影子把VBA的功力练好啦，开始发帖？
3楼老糊涂	学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表