电脑教程
位置:首页>> 电脑教程>> office教程>> excel VBA自定义函数MYSTR()指定连接符连接文本实例教程

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

  发布时间:2022-10-14 05:29:02 

标签:excel指定连接符连接文本,VBA自定义函数

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

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

函数名:MYSTR

 

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

 

参数介绍:

第一参数:(必须)指定连接符,可以是文本常量,也可以是单元格引用。忽略空单元格。 

第二参数:(必须)需要连接的文本或单元格区域。

第三、四等参数:(可选)同第二参数

 

效果展示:

 

excel VBA自定义函数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编辑器,新建一个模块,把自定义函数代码复制到模块中。

 

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

 

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

 

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

 

 

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

excel VBA自定义函数MYSTR()指定连接符连接文本实例教程的下载地址:


     

0
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com