如何用函数将人名按分号排列出来？

adser42 · 发表于 2025-4-1 23:16

如何用函数将人名按分号排列出来？

mengrs · 发表于 2025-4-2 06:26

本帖最后由 mengrs 于 2025-4-2 07:04 编辑

=DROP(GROUPBY(B:B,A:A,ARRAYTOTEXT,3,0),-1)

mengrs · 发表于 2025-4-2 06:54

本帖最后由 mengrs 于 2025-4-2 07:03 编辑

分隔符为顿号：
=DROP(GROUPBY(B:B,A:A,LAMBDA(x,TEXTJOIN("、",,x)),3,0),-1)

wyslw2004 · 发表于 2025-4-2 06:54

=GROUPBY(B1:B278,A1:A278,VSTACK(LAMBDA(x,TEXTJOIN("、",1,x)),"姓名"),3,0)

快乐王子238 · 发表于 2025-4-2 07:17

=DROP(GROUPBY(B1:B278,A1:A278,HSTACK(counta,LAMBDA(x,TEXTJOIN("、",1,x))),0,0),1)

zhangcheng6688 · 发表于 2025-4-2 08:09

借楼学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
[f1].Resize(, 2) = Array("规培专业", "姓名")
Set dic = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 2 To UBound(arr)
If Not dic.exists(arr(i, 2)) Then
   m = m + 1
   brr(m, 1) = arr(i, 2)
   brr(m, 2) = arr(i, 1)
   dic(arr(i, 2)) = m
Else
   r = dic(arr(i, 2))
   brr(r, 2) = brr(r, 2) & "、" & arr(i, 1)
End If
Next
If m > 0 Then
[f2].Resize(m, 2) = brr
End If
Set dic = Nothing
End Sub

hugeinfo · 发表于 2025-4-2 08:20

=LET(a,A2:A278,b,B2:B278,REDUCE({"规培专业","姓名"},UNIQUE(b),LAMBDA(x,y,VSTACK(x,HSTACK(y,TEXTJOIN("、",,FILTER(a,b=y)))))))

沈默00 · 发表于 2025-4-2 08:24

=GROUPBY(B2:B278,A2:A278,ARRAYTOTEXT,0,0)

wp231957 · 发表于 2025-4-2 08:32

原始数据不规范，先替换一下
=GROUPBY(SUBSTITUTES(B2:B278,{"（","）"},{"(",")"}),A2:A278,LAMBDA(x,TEXTJOIN(",",,x)),0,0)

你是那块小饼干 · 发表于 2025-4-2 09:42

=GROUPBY(B2:B278,A2:A278,ARRAYTOTEXT,0,0)

用户名		自动登录	找回密码
密码			免费注册

[求助] 如何用函数将人名按分号排列出来？

评分