Excel函数技巧:自定义函数连接文本
时间:2023-08-13 22:57:50
在实际工作中有很多情况需要统计某项目的不重复值,并把对应的数据合并在一起。本例介绍如何通过自定义函数的方法完成符合条件的文本连接/文本合并功能。
步骤说明:
首先,双击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版工作簿,在保存时请选择保存成【启用宏的工作簿】格式。
如果您觉得此经验有用,可以点击本页面右上方的【大拇指】图案或者【分享】按钮,也可以点击本注意事项下方的【收藏】按钮。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Win7系统电脑应用程序无法正常启动怎么解决
![](https://img.aspxhome.com/file/2023/3/a302023_0s.jpg)
excel多条件计数公式的使用方法
Win10 Mobile模拟器Build 15063版本发布
![](https://img.aspxhome.com/file/2023/28/a242385_0s.jpg)
Win10系统结束进程却弹出拒绝访问怎么解决?
![](https://img.aspxhome.com/file/2023/26/a220946_0s.png)
Win7共享打印机无法连接怎么办?无法连接共享打
![](https://img.aspxhome.com/file/2023/3/a298893_0s.jpg)
电脑Win7怎么升级Win10系统?2023Win7免费升级到Win10图文教程
![](https://img.aspxhome.com/file/2023/25/a216809_0s.png)
Win7系统电脑修改开机音乐的操作方法
![](https://img.aspxhome.com/file/2023/4/a307265_0s.jpg)
教你打开Win10应用商店的正确姿势
![](https://img.aspxhome.com/file/2023/26/a226791_0s.jpg)
Win10卸载系统软件的操作教程
![](https://img.aspxhome.com/file/2023/1/a278379_0s.png)
Win10系统文件无法复制到U盘怎么办?Win10系统文件无法复制到C盘解决方法
![](https://img.aspxhome.com/file/2023/26/a219611_0s.png)
excel2003规划求解的教程
PPT怎么快速切换主题?PPT快速切换主题的方法
![](https://img.aspxhome.com/file/2023/10/a350180_0s.jpg)
微信小程序怎么将PDF转换成word 微信小程序转换PDF文档的教程
![](https://img.aspxhome.com/file/2023/8/a336465_0s.png)
Win10专业版开机黑屏怎么办?Win10专业版开机黑屏解决方法
![](https://img.aspxhome.com/file/2023/1/a283054_0s.png)
Win11同步空间图标怎么删除?Win11同步空间图标删除方法步骤
![](https://img.aspxhome.com/file/2023/1/a275211_0s.jpg)
Word中没有目录相关功能
![](https://img.aspxhome.com/file/2023/0/31960_0s.png)
Word如何加入自己的封面?Word加入自己封面的方法
![](https://img.aspxhome.com/file/2023/2/30862_0s.jpg)
Win10更新出现错误0x80096004怎么办?
![](https://img.aspxhome.com/file/2023/26/a221063_0s.png)
简单易上手 固态硬盘SSD安装WIN7系统的3种办法
![](https://img.aspxhome.com/file/2023/5/a319039_0s.jpg)
JPG图片与Word文档之间的转换
![](https://img.aspxhome.com/file/2023/8/21558_0s.jpg)