excel 按指定条件分组合并单元格

有这样一个表格，一列为类型，一列为数据，如何以类型合并数据在一行中呢？如下图。组别和姓名。按组别合并姓名在同一行。

1511597718232844.png

这里我们自定义一个函数，可以通过该函数自动组合合并单元格到同一行中Functionhb(Rng1AsRange,Str,Rng2AsRange)
DimArr,Brr
DimiAsLong
DimjAsLong
DimMyStrAsString
IfRng1.Rows.count>65536Then
Arr=Rng1.Resize(65536,Rng1.Columns)
Brr=Rng2.Resize(65536,Rng1.Columns)
Else
Arr=Rng1
Brr=Rng2
EndIf
Fori=1ToUBound(Arr)
Forj=1ToUBound(Arr,2)
IfArr(i,j)""Then
IfArr(i,j)=StrThen
MyStr=MyStr&Brr(i,j)&","
EndIf
Else
ExitFor
EndIf
Nextj
Nexti
hb=Left(MyStr,Len(MyStr)-1)
EndFunction
解析：函数名：hb作用：对参数范围中符合指定条件的单元格内容进行连接。参数介绍：第一参数：（必须）条件区域，根据条件计算的单元格区域。第二参数：（必须）用于确定连接的条件。第三参数：（必须）要连接的实际单元格区域。
先填写分组的内容，在E2写入公式：=hb(A$1:A$7,D2,B$1:B$7)

1511598170459364.png

参考自：Office自学教程网