Excel自带的CONCATENATE函数虽然能连接文本，但却不能连接内存数组，论效果还没&这个连接符方便，实在是Excel里的第一大鸡肋。所以今天就介绍给大家我一直在用的文本连接的自定义函数–contxt 。
FunctionConTxt(ParamArrayargs()AsVariant)AsVariantDimtmptextAsVariant,iAsVariant,cellvAsVariantDimcellAsRangetmptext=""Fori=0ToUBound(args)IfNotIsMissing(args(i))ThenSelectCaseTypeName(args(i))Case"Range"ForEachcellInargs(i)tmptext=tmptext&cellNextcellCase"Variant()"ForEachcellvInargs(i)tmptext=tmptext&cellvNextcellvCaseElsetmptext=tmptext&args(i)EndSelectEndIfNextiConTxt=tmptextEndFunction
用法就如CONCATENATE函数差不多，以逗号,分隔，参数支持数组和单元格区域。原创作者为 chenjun （陈军），微软MVP，一个EH里传奇的人物，可惜我进EH的时候这位英雄已归隐了，无缘讨教，很是可惜。
PS：大家也发现了，博客快要两个月没更新了，这是因为这段时间发生了很多事，心性也有了很大变化：Excel内容丰富到学不完，但目前的水平在实际工作中却已够用，Excel之外应该关注些其他的方面——赚钱，所以最近又在做一个关于网赚的博客，想在工作之余弄点烟钱的朋友可以适度关注一下。精力有限，估计VSTO是很难再写下去了，以后也只会写写新学到的Excel/VBA等Office系列或是工作中遇到的问题一类的文章了。所以，如果大家有好的经验和创意，而又不想淹没在EH、ET等黄金垃圾堆中，欢迎投稿给我，我的邮箱：laoyebin@gmail.com或admin@mrvsto.com，文章会发表在我的个人博客上。
作者：laoyebin(Paladin.lao)个人网站英文出处：http://mrvsto.com/个人网站中文出处：http://cn.mrvsto.com/
本文版权归作者所有，欢迎转载，但请保留作者信息和原文链接，非常感谢。
人只要不失去方向，就不会失去自己
