左边列相同，右边列自动合并成一行

经典丢丢

请教如何通过A、 B列的数据，得到D\E列的结果，

wp231957

=GROUPBY(A2:A10,B2:B10,CONCAT,0,0)

wp231957

加空格
=GROUPBY(A2:A10,B2:B10,LAMBDA(x,TEXTJOIN(" ",,x)),0,0)

貌似2013版的 用不了，，请忽略

hxj119

1. =GROUPBY(A2:A10,B2:B10,LAMBDA(x,TEXTJOIN(" ",1,x)),0,0)

复制代码

mengrs

老版本
=SUBSTITUTE(PHONETIC(OFFSET(A$1,MATCH(D2,A$2:A$10,),,COUNTIF(A$2:A$10,D2),2)),D2,"  ")

zhangcheng6688

借楼学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set dic = CreateObject("scripting.dictionary")
[d1].Resize(, 2) = Array("考试名称", "班级")
[d1].Resize(, 2).Font.Bold = True
For i = 2 To UBound(arr)
   If Not dic.exists(arr(i, 1)) Then
      dic(arr(i, 1)) = arr(i, 2)
   Else
      dic(arr(i, 1)) = dic(arr(i, 1)) & " " & arr(i, 2)
   End If
Next
ReDim brr(1 To dic.Count, 1 To 2)
For Each k In dic.keys
   m = m + 1
   brr(m, 1) = k
   brr(m, 2) = dic(k)
Next
Columns("d:e").HorizontalAlignment = xlCenter
[d2].Resize(m, 2) = brr
Set dic = Nothing
End Sub

mykitami

=GROUPBY(A1:A10,B1:B10,LAMBDA(x,TEXTJOIN(" ",,x)),3,0)

wyslw2004

=GROUPBY(A1:A10,B1:B10,LAMBDA(x,TEXTJOIN(" ",,x)),3,0)

wyslw2004

卡住了，也不知是不是发出去了，又存在审核，真闹心。补一张截图吧

xtmyd5156