Excel函数技巧:自定义函数连接文本

办公教程导读

收集整理了【Excel函数技巧:自定义函数连接文本】办公软件教程,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含1032字,纯文字阅读大概需要2分钟

办公教程内容图文

在实际工作中有很多情况需要统计某项目的不重复值,并把对应的数据合并在一起。本例介绍如何通过自定义函数的方法完成符合条件的文本连接/文本合并功能。  

步骤说明:

  首先,双击D2单元格,并输入公式生成A列数据的不重复值:

  =INDEX($A$2:$A$8,MATCH(,COUNTIF(D$1:D1,$A$2:$A$8),))

  输入完毕后,左手按住Ctrl和Shift,右手按下回车键,并下拉公式。  

  第二,按键盘上的Alt+F11进入VBE界面。  

  第三,选择【插入】-【模块】插入一个模块。  

  第四,在右侧空白处粘贴下列代码并关闭VBE界面:

  Option Explicit

  Function ConTxt(ParamArray args() As Variant) As Variant

  Dim tmptext As Variant, i As Variant, cellv As Variant

  Dim cell As Range

  tmptext = ""

  For i = 0 To UBound(args)

  If Not IsMissing(args(i)) Then

  Select Case TypeName(args(i))

  Case "Range"

  For Each cell In args(i)

  tmptext = tmptext & cell

  Next cell

  Case "Variant()"

  For Each cellv In args(i)

  tmptext = tmptext & cellv

  Next cellv

  Case Else

  tmptext = tmptext & args(i)

  End Select

  End If

  Next i

  ConTxt = tmptext

  End Function  

  第五,双击E2粘贴公式=ConTxt(IF($A$2:$A$8=D2,"/"&$B$2:$B$8,"")),同样按Ctrl+Shift+Enter运行公式,并下拉。  

  为了美观,将第一个斜杠去掉,将E2公式改成:

  =MID(ConTxt(IF($A$2:$A$8=D2,"/"&$B$2:$B$8,"")),2,99)

  数组方式运行,并下拉公式即完成了文本合并。  

注意事项

  如果是2007版工作簿,在保存时请选择保存成【启用宏的工作簿】格式。

  如果您觉得此经验有用,可以点击本页面右上方的【大拇指】图案或者【分享】按钮,也可以点击本注意事项下方的【收藏】按钮。

办公教程总结

以上是为您收集整理的【Excel函数技巧:自定义函数连接文本】办公软件教程的全部内容,希望文章能够帮你了解办公软件教程Excel函数技巧:自定义函数连接文本
如果觉得办公软件教程内容还不错,欢迎将网站推荐给好友。

hmoban主题是根据ripro二开的主题,极致后台体验,无插件,集成会员系统
自学咖网 » Excel函数技巧:自定义函数连接文本