专栏名称: Excel之家ExcelHome
excel技巧原创教程每日推送,excel表格职场模板干货仓库,图文/视频/动画等多种教学方式分享excel操作技巧教程/excel函数公式教程/excel数据透视表教程/excel图表教程/Word教程,助您轻松提高办公效率!
目录
相关文章推荐
完美Excel  ·  将矩形区域/数组转换为单列 ·  5 天前  
完美Excel  ·  Excel数据筛选技巧 ·  2 天前  
Excel之家ExcelHome  ·  VLOOKUP出错常见原因和处理方法 ·  1 周前  
Excel之家ExcelHome  ·  Excel易用宝V2.6上线,数据处理一键完 ... ·  5 天前  
Excel之家ExcelHome  ·  分享几个常用Excel函数公式 ·  1 周前  
51好读  ›  专栏  ›  Excel之家ExcelHome

连接多单元格数据?试试这个Excel自定义函数吧

Excel之家ExcelHome  · 公众号  · Excel  · 2017-06-24 07:07

正文

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

下面就介绍一个简单的字符串处理函数:


函数名:MYSTR


  • 作  用:用任意连接符连接文本


  • 参数介绍:

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


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


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


  • 效果展示:

创建自定义函数的方法:

新建一个EXCEL文档,只保留一个工作表,其余删除。

ALT+F11,打开VBE编辑器,新建一个模块,把下面的自定义函数代码复制到模块中,关闭VBE编辑器。

PublicFunction 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))

EndFunction

F12【另存为】,文件保存类型选择“Excel加载宏”。它将自动存入ADDIN文件夹中。

然后从任意一个EXCEL文件的【开发工具】-【加载宏】中勾选所保存的宏文件名,确定。

接下来就可以在工作表中的随心所欲的使用自定义的合并文本函数啦,赶紧的,动手试试吧——


作者:zmnyu


Excel函数实战技巧精粹 - 第18期
免费公开课时间:2017-6-27、6-28(晚20:00~21:30)
正式课时间:7-4 —— 8-1
讲师:胡剑0227
点击阅读原文,了解更多课程详情:
免费报名公开课:Excel函数精粹-公开课QQ群 246666938