介紹一個文本連接的自定義函數：contxt

Excel自帶的CONCATENATE函數雖然能連接文本，但卻不能連接內存數組，論效果還沒&這個連接符方便，實在是Excel裏的第一大雞肋。

所以今天就介紹給大家我一直在用的文本連接的自定義函數–contxt 。

 

Function ConTxt(ParamArray args() As Variant) As Variant Dim tmptext As Variant, i As Variant, cellv As Variant Dim cell As Range tmptext = "" For i = 0 To UBound(args) If Not IsMissing(args(i)) Then Select Case TypeName(args(i)) Case "Range" For Each cell In args(i) tmptext = tmptext & cell Next cell Case "Variant()" For Each cellv In args(i) tmptext = tmptext & cellv Next cellv Case Else tmptext = tmptext & args(i) End Select End If Next i ConTxt = tmptext End Function  

 

 

用法就如CONCATENATE函數差不多，以逗號,分隔，參數支持數組和單元格區域。
原創作者爲 chenjun （陳軍），微軟MVP，一個EH裏傳奇的人物，可惜我進EH的時候這位英雄已歸隱了，無緣討教，很是可惜。

PS：大家也發現了，博客快要兩個月沒更新了，這是因爲這段時間發生了很多事，心性也有了很大變化：Excel內容豐富到學不完，但目前的水平在實際工作中卻已夠用，Excel之外應該關注些其他的方面——賺錢，所以最近又在做一個關於網賺的博客，想在工作之餘弄點菸錢的朋友可以適度關注一下。
精力有限，估計VSTO是很難再寫下去了，以後也只會寫寫新學到的Excel/VBA等Office系列或是工作中遇到的問題一類的文章了。所以，如果大家有好的經驗和創意，而又不想淹沒在EH、ET等黃金垃圾堆中，歡迎投稿給我，我的郵箱： [email protected] 或 [email protected] ，文章會發表在我的個人博客上。

 

 

作者：laoyebin(Paladin.lao) 
個人網站英文出處：http://mrvsto.com/ 
個人網站中文出處：http://cn.mrvsto.com/ 

本文版權歸作者所有，歡迎轉載，但請保留作者信息和原文鏈接，非常感謝。