作者：阿航（Office中国 ）
经常碰到有人想把相同的内容对应数据合并显示，说得有点绕，看下图就明白：
右边的很不利于统计数据，只适合看。既然很多人问，就说说如用用自定义函数的方法实现。
为什么不用公式呢？因为公式难度很多，Excel公式对处理文本合并的功能很弱。
Alt + F11，进入代码编辑界面。再新建一个模块，插入如下代码：
Public Function SLookUp( lookup_value As String, table_array As Range, col_index_num As Long, Optional delimiter As String = "," ) As String '单元格选区优化，避免选择整列之后，遍历过多无用的单元格' Dim row_max As Long row_max = Cells(65536, table_array.Columns(1).Column).End(xlUp).Row Dim arr As Variant, i As Long arr = table_array.Resize(row_max - table_array.Row + 1).Value For i = 1 To UBound(arr) '判断是否等于查找的值' If arr(i, 1) = lookup_value Then '返回并组合对应列的值' SLookUp = SLookUp & delimiter & arr(i, col_index_num) End If Next '去掉开头的分隔符' SLookUp = Mid(SLookUp, Len(delimiter) + 1) End Function
对应的参数含义如下：
lookup_value： 必填，要查找的值
table_array： 必填，查找范围
col_index_num： 必填，返回第几列的值
delimiter： 选填，分隔字符
该自定义函数原理很简单。循环遍历单元格的值，只要碰到和条件相同的值，就找合并内容。
其中为了避免使用自定义函数时，选中整列，导致遍历了很多无需遍历的单元格。其中加了优化选区的处理。
用法和Vlookup差不多，或者说我把这个自定义函数设计得和Vlookup差不多。如下图：
以E2单元格的公式为例，解析一下用法：
第1个参数是D2，即查找D2的值；
第2个参数是A:B，即在A:B列中查找；
第3个参数是2，即合并A:B列中的第2列找到的值；
第4个参数没填，则默认使用逗号分隔。
当然，你也可以把第4个参数写成你需要的分隔符：
