摘要： 在实际工作中有很多情况需要统计某项目的不重复值，并把对应的数据合并在一起。本例介绍如何通过自定义函数的方法完成符合条件的文本连接/文本合并功能。 ... 在实际工作中有很多情况需要统计某项目的不重复值，并把对应的数据合并在一起。本例介绍如何通过自定义函数的方法完成符合条件的文本连接/文本合并功能。
步骤说明：
首先，双击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)
Excel表格中怎么求差如何使用求差函数公式批量计算差值
Excel表格中如何求和、求积想必大家都会了吧，在前几篇文章中也有所介绍。如果还有不会的那就只有重新复习一遍了。至于Excel中怎么求差，在本文会为大家详细介绍下。虽然很简单，相信有很多的朋友也已经会了，不过还是存在一些新手朋友们，所以这里有必要讲解一下。求差的实现主要就是一个公式，如A1-B1=C1，他的意思就是第一
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中通过数据有效性简单实现单元格中的公式结构不被修改
一般情况下可以使用保护工作表的方式来保护单元格中的公式不被修改。不过由于工作表中所有的单元格默认都是锁定的，如果让部分单元格能够输入数据的同时又保护包含公式的单元格就需要解除一些单元格的锁定状态，如此一来操作比较繁琐，难道就没有更好的方法了吗？经研究发现如果仅仅是保护公式的结构不被修改，我们完全可以使用数据有效性来实现
