如何定义根据给出不连续区域文本进行连接并加逗号的自定义函数？

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

楼主 BIN_YANG168	Q：怎样用自定义函数不连续区域文本进行连接并加逗号? A：按Alt+F11，插入→模块→在VBE窗口中输入以下代码： Function zz(rng As Range) Dim c As Range, Arr(), n% For Each c In rng If c <> 0 Then n = n + 1 ReDim Preserve Arr(1 To n) Arr(n) = c End If Next c zz = Join(Arr, ",") End Function Function ZHYZ(i As Range) As String For Each j In i a = Trim(ZHYZ & " " & j) ZHYZ = Application.WorksheetFunction.Substitute(a, " ", ",") Next End Function 然后在B5:I5单元格输入需要连接的文本，在其他单元格输入=zz(B5:I5)或=zhyz(B5:I5)即可。文本连接加逗号.rar
2楼 zzmjxxy	感谢楼主
3楼 zzmjxxy	版主怎么自定义按满足多个条件的连接。类似于SUMPRODUCT多件求和函数。谢谢！

免责声明

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

评论列表