写个文本合并函数练习，类似TEXTJOIN,老师们请勿笑话

gxx75 · 发表于 2019-3-25 22:07

我学习的榜样，历害

jiangxiaoyun · 发表于 2019-3-25 22:50

去重复的呢？

jiangxiaoyun · 发表于 2019-3-25 22:52

遇到空白呢？？

micch · 发表于 2019-3-26 09:35

jiangxiaoyun 发表于 2019-3-25 22:50
去重复的呢？

去重的在附件里，单独写的TJOINQC。不过去重没用字典，用的是查找，但是如果分隔符是空的时候，字符串连在一起去重就可能出现意外情况，比如"张国华"和"张国"这种重名的情况。所以还需要改进。

另外最终是想把去重和不去重写在一起，加个参数控制是否去重，暂时还在琢磨当中，等我学的再明白一点后更新

micch · 发表于 2019-3-26 09:36

jiangxiaoyun 发表于 2019-3-25 22:52
遇到空白呢？？

空值默认不参与合并，所有的空值会被忽略，这个和textjoin不同，textjoin是用第二参数来控制的

hehex · 发表于 2019-3-26 10:12

都是高手啊，我都看不懂

micch · 发表于 2019-3-26 10:16

hehex 发表于 2019-3-26 10:12
都是高手啊，我都看不懂

不需要看懂啊，你是指代码看不懂，还是函数看不懂。其实就是个最简单的代码，用的都是if，if应该是最好理解的了。

hno3861 · 发表于 2019-3-26 15:01

micch 发表于 2019-3-25 13:33
借楼一用
加一个参数，可以选择去重或不去重合并。剩下功能继续琢磨去了

去重复用字典效率会高。不定义S,R，直接作为可缺省的参数。
Function TJOINQC(S, R, ParamArray X() As Variant) As String
Dim A, B, Mstr$
If IsMissing(S) Then S = ""
If IsMissing(R) Then R = 0

jiangxiaoyun · 发表于 2019-3-26 15:20

应该设计一个自定义函数
古龙  燕十三
古龙  谢晓峰
古龙  燕十三

结果
古龙燕十三，谢晓峰
逗号为连接符

hno3861 · 发表于 2019-3-26 15:25

jiangxiaoyun 发表于 2019-3-26 15:20
应该设计一个自定义函数
古龙燕十三
古龙谢晓峰

三楼就可以。第二参数设非0。

		自动登录	找回密码
密码			免费注册

[分享] 写个文本合并函数练习，类似TEXTJOIN,老师们请勿笑话

评分