excel VBA自定义函数MYSTR()指定连接符连接文本实例教程

办公教程导读

收集整理了【excel VBA自定义函数MYSTR()指定连接符连接文本实例教程】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含802字，纯文字阅读大概需要2分钟。

办公教程内容图文

字符串处理一直是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自定义函数MYSTR()指定连接符连接文本实例教程】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程excel VBA自定义函数MYSTR()指定连接符连接文本实例教程。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。