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

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

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

函数名：MYSTR

函数作用：用任意连接符连接文本

参数介绍：

第一参数：（必须）指定连接符，可以是文本常量，也可以是单元格引用。忽略空单元格。

第二参数：（必须）需要连接的文本或单元格区域。

第三、四等参数：（可选）同第二参数

效果展示：

字符串连接自定义函数代码如下：

Public Function mystr(ll, ParamArray x())

For Each r In x

If IsArray(r) Then

For Each rr In r

If rr <> "" Then mystr = mystr & ll & rr

Next

Else

mystr = mystr & ll & r

End If

Next

mystr = Mid$(mystr, 2, Len(mystr))

End Function

附：自定义函数使用方法：

新建一个EXCEL文档，删除文件中的多余工作表，保留一个，然后ALT+F11，打开VBE编辑器，新建一个模块，把自定义函数代码复制到模块中。

文件另存，文件保存类型选择倒数第7个“加载宏”。它将自动存入ADDIN文件夹。

然后从任意一个EXCEL文件的：工具-加载宏中勾选所保存的宏文件名。确定即可。

《零基础玩会Excel-VBA》课程介绍：针对零基础学员，以案例形式，循序渐进的讲解VBA编程技术的相关知识，对于用基础操作、函数公式等方法难以解决的工作难题，可以用VBA轻松搞定。

咱们今天就分享到这，祝各位小伙伴天天好心情………….您想快速学好Excel，欢迎学习加入EXCEL学习群：365187805 如果你觉得文章不错，请分享给你的朋友们，独乐乐不如众乐乐！大家的分享和鼓励，将是小编工作的动力。