办公小白必看：结果合并到一个单元格 这三个方法够不够.pdfVIP

办公小白必看：结果合并到一个单元格 这三个方法够不够 如下图，需要把AB 列的数据，按照不同的部门汇总出 对应的人员名单。先来看第一种方法：自定义函数 ExcelHome 论坛的chenjun 版主，很多年前写了一个关于合 并同类项的自定义函数，功能强大，使用简单：这里粘贴的 代码为：PubliC FunCtion Contxt(ParamArray args() As Variant) As VariantDim tmptext As Variant, i As Variant, Cellv As VariantDim Cell As Rangetmptext = For i = 0 To UBound(args)If Not IsMissing(args(i)) ThenSeleCt Case TypeName(args(i))Case RangeFor EaCh Cell In args(i)tmptext = tmptext CellNext CellCase Variant()For EaCh Cellv In args(i)tmptext = tmptext CellvNext CellvCase Elsetmptext = tmptext args(i)End SeleCtEnd IfNext iConTxt = tmp