返回首页
当前位置: 主页 > Excel教程 > Excel VBA教程 >

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

时间:2016-08-16 23:37来源:Office教程学习网 www.office68.com编辑:麦田守望者

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

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

  函数名:MYSTR
 
  函数作用:用任意连接符连接文本
 
  参数介绍:
  第一参数:(必须)指定连接符,可以是文本常量,也可以是单元格引用。忽略空单元格。 
  第二参数:(必须)需要连接的文本或单元格区域。
  第三、四等参数:(可选)同第二参数
 
  效果展示:
 
excel vba 字符串连接 
 
  字符串连接自定义函数代码如下:
 
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 自定义函数 
 
  文件另存,文件保存类型选择倒数第7个“加载宏”。它将自动存入ADDIN文件夹。
 
Excel加载宏
 
 
  然后从任意一个EXCEL文件的:工具-加载宏中勾选所保存的宏文件名。确定即可。
顶一下
(1)
100%
踩一下
(0)
0%
标签(Tag):excel技巧 excel教程 excel实例教程 excel2010技巧
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
猜你感兴趣