如何创建自定义函数来合并重复内容的对应文本?

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

楼主
liuguansky

Q:如何根据“BOM”D列数据，把I列与之相对应的机型返回到“sheet1”的G列，返回格式如：801M01、801M02、853D05、853D09.用VBA汇总也行，就是如果其它相类似的表格也需要这样汇总的话，就有点麻烦了，有没有用公式汇总的呢?
A:用如下自定义函数可以实现要求:

Function JxSum(rng As Range, rng0 As Range, rng1 As Range, Optional t As String = "、") As String
'rng 为要核查的对象描述区域,rng0为要核查的机型区域,rng1为要返回的对象描述单元格,t为机型汇总的分隔符
Application.Volatile '非易失函数
Dim d As New Dictionary, i&, rn As Range, g As String, h As String, k '定义变量[前期绑定,需引用MSSCRIPTING.RUNTIME]
If IsMissing(t) Then '判断可选参数是否存在,进行相应处理
k = "、"
Else: k = t
End If
For Each rn In rng '循环查找单元格,进行字典组合
'此处可以直接数组循环,比较连接文本.
i = i + 1
g = rng.Cells(i).Value
h = rng0.Cells(i).Value
If Len(Trim(g)) Then
If d.Exists(g) Then
d(g) = d(g) & k & h
Else: d.Add g, h
End If
End If
Next
If d.Exists(rng1.Value) Then JxSum = d(rng1.Value) '返回值
End Function

2楼
kevinchengcw

好帖，谢谢分享！

免责声明

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

评论列表