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版工作簿，在保存时请选择保存成【启用宏的工作簿】格式。
如果您觉得此经验有用，可以点击本页面右上方的【大拇指】图案或者【分享】按钮，也可以点击本注意事项下方的【收藏】按钮。
0
投稿猜你喜欢
当我们在使用电脑过程中，会遇到各种问题，例如蓝屏错误0xc0000359，该怎么解决呢，跟小编一起往下看吧。1、当电脑出现蓝屏错误0xc00- 越来越多的人开始使用win10系统，但是电脑使用一段时间之后，运行速度就会下降，内存变小，影响正常运行，这时候我们可以优化一下内存。下面我们
- 咱们在 操纵Word文档 停止 一样平常办公时， 常常 需求 输出 林林总总的 笔墨，当 咱们 输出多行文档的 时分， 假如 咱们想要将文档
- DTS音效大师是一款能够提升汽车音乐效果的音效软件，这款音效软件拥有八倍音效、2.0转5.1环绕声、U盘音乐、制作碟片、音乐转换等功能，!D
- 相信不少用户都遇到过安装系统时出现某些错误问题的情况，最近有用户反映在安装Win7系统时遇到错误代码0x800700B7的问题。安装系统时出
- 我们在使用Excel编写试卷、或者有生僻字的时候， 我们需要对文字进行拼音标注，那么Excel2007如何为单元格中的文字添加拼音?下面小编
- 在Mac电脑中的输入法是Mac系统自带的如简体中文输入法，一些用户吐槽Mac自带的输入法不是很好用，那是因为没有发掘它的隐藏技巧，下面我们分
- 今天早些时候。微软Windows Insider项目负责人Gabriel Aul在回答网友提问时>确认了Build 10130>
- 很多用户为了重装系统，买了U盘，或者光盘，然后也把U盘制成了启动U盘，也下载了系统镜像到U盘内，可是等把U盘插到电脑上时，却发现不知道怎能样
- 打开软件并新建文档，菜单栏点击插入>插入表格。通过随意添加表格到文档内编辑区。添加完成以后将光标放到左上角第一个单元格左侧位置。通过键
- 我们使用系统的时候，会造成很多系统垃圾，这些系统垃圾如果没有进行清理的话，就会造成系统卡顿，一些软件的清理根本没有办法清理到深层的垃圾文件，
- wps文档是我们生活中经常使用到的软件，那你知道怎么在wps文档中设置奇偶页眉吗?不会的朋友，下面小编就为你介绍wps如何设置奇偶页眉的方法
- 很多用户使用的都是微软的操作系统以及微软的办公软件，微软是目前全球最大的电脑软件提供商。但是有很多新手朋友想要注册一个微软账号但是不知如何申
- Excel单元格如何设置身份证格式?很多朋友并不是很清楚，其实操作方法很简单的，下面小编就为大家详细介绍一下，一起来看看吧很多时候我们需要在
- Win7系统当中的EDIUS软件提示版本过期如何解决？EDIUS软件一直都是非常专业的非线形视频编辑软件。但最近有用户表示在使用EDIUS软
- 演示动画操作步骤现在很多单位都建立了内部局域网，我们把Excel文档设置成共享，可以让多人在局域网上同时对一个文档进行编辑操作。启动Exce
- Win10鼠标能动但是无法点击怎么办？在我们日常电脑的使用中，鼠标是很重要的输入设备，但是近期有用户遇到了鼠标能动，但是无法点击的情况，这是
- 已经有很多小伙伴已经更新了Win10的最新版本，但是还有很多小伙伴还没进行更新，现在更新Win10 2004的方法很多。下面就给大家介绍一下
- word中怎么修改会治好的示意图？word中会知道的图形，在导入visio后发现有需要修改的地方，该怎么办呢？下面我们就来看看详细的教程，需
- 猫猫影楼相册怎么导出资源？猫猫影楼相册是一款相册制作软件，在猫猫影楼相册中如果我们想要将资源进行导出的话，要怎么进行操作呢？下面就给大家分享
