Excel VBA自定义函数MYSTR()指定连接符连接文本

内容提要：本文小奇老师为大家分享了Excel VBA自定义函数MYSTR()来连接文本演示案例。

字符串处理一直是Excel函数的软肋，动不动就需要多层嵌套，数组公式，有些功能还无法实现，比如用连接符连接文本，用函数几乎是无法做到的，有了VBA自定义函数，这一切将SOEASY！

下面就为大家分享一个简单的字符串连接处理函数：

函数名：MYSTR 函数作用：用任意连接符连接文本 参数介绍：第一参数：（必须）指定连接符，可以是文本常量，也可以是单元格引用。忽略空单元格。 第二参数：（必须）需要连接的文本或单元格区域。第三、四等参数：（可选）同第二参数 效果展示：   字符串连接自定义函数代码如下： PublicFunctionmystr(ll,ParamArrayx())  ForEachrInx    IfIsArray(r)Then      ForEachrrInr        Ifrr<>""Thenmystr=mystr&ll&rr      Next    Else      mystr=mystr&ll&r    EndIf  Next  mystr=Mid$(mystr,2,Len(mystr))EndFunction 附：自定义函数使用方法： 新建一个EXCEL文档，删除文件中的多余工作表，保留一个，然后ALT+F11，打开VBE编辑器，新建一个模块，把自定义函数代码复制到模块中。   文件另存，文件保存类型选择倒数第7个“加载宏”。它将自动存入ADDIN文件夹。   然后从任意一个EXCEL文件的：工具-加载宏中勾选所保存的宏文件名。确定即可。 更多的excel教程，请关注excel教程微信公众号：