如何修改函数去重

janemark · 发表于 2024-10-12 21:42

区域E2:F3是用函数公式得来的，但是单元格F2中却有重复的值---橘子，如何修改函数去掉重复的值。

请看附件

leepoison · 发表于 2024-10-12 21:45

=GROUPBY(B2:B5,C2:C5,LAMBDA(x,ARRAYTOTEXT(UNIQUE(x))),0,0)

无关岁月 · 发表于 2024-10-12 21:45

=LET(_a,UNIQUE(B2:C5),GROUPBY(INDEX(_a,,1),INDEX(_a,,2),ARRAYTOTEXT,,0))

复制代码

忙到飞起 · 发表于 2024-10-12 22:23

=LET(a,UNIQUE(B2:B5),b,DROP(REDUCE(1,a,LAMBDA(x,y,VSTACK(x,TOROW(UNIQUE(FILTER(C2:C5,B2:B5=y)))))),1),IFNA(HSTACK(a,b),""))

写的老长了

你是那块小饼干 · 发表于 2024-10-13 20:28

=GROUPBY(B2:B5,C2:C5,LAMBDA(_X,ARRAYTOTEXT(UNIQUE(_X))),0,0)

zhangcheng6688 · 发表于 2024-10-14 07:52

学习一下字典
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 2 To UBound(arr)
If Not d.exists(arr(i, 2)) Then
   Set d(arr(i, 2)) = CreateObject("scripting.dictionary")
End If
   d(arr(i, 2))(arr(i, 3)) = ""
Next
For Each kk In d.keys
m = m + 1
brr(m, 1) = kk
For Each kk1 In d(kk).keys
   brr(m, 2) = brr(m, 2) & "," & kk1
Next
brr(m, 2) = Mid(brr(m, 2), 2)
Next
[e2].Resize(m, 2) = brr
End Sub

zzyglgl · 发表于 2024-10-14 08:18

学到了，谢谢！

hugeinfo · 发表于 2024-10-14 08:21

本帖最后由 hugeinfo 于 2024-10-14 08:24 编辑

=DROP(REDUCE("",UNIQUE(B2:B5),LAMBDA(x,y,VSTACK(x,HSTACK(y,TEXTJOIN(",",,UNIQUE(FILTER(C2:C5,B2:B5=y))))))),1)

=GROUPBY(B2:B5,C2:C5,LAMBDA(a,TEXTJOIN(",",1,UNIQUE(a))),,0)

hxj119 · 发表于 2024-10-14 09:09

本帖最后由 hxj119 于 2024-10-14 09:10 编辑

=GROUPBY(B2:B5,C2:C5,LAMBDA(x,ARRAYTOTEXT(UNIQUE(x))),,0)

复制代码

如果没有GROUPBY函数，用REDUCE函数实现

=REDUCE(B1:C1,UNIQUE(B2:B5),LAMBDA(x,y,VSTACK(x,HSTACK(y,ARRAYTOTEXT(UNIQUE(FILTER(C2:C5,B2:B5=y)))))))

复制代码

wgreen · 发表于 2024-10-14 09:56

#在这里快速=TEXTJOIN(",",TRUE,UNIQUE(FILTER(C2:C5,B2:B5=E2),,FALSE))回复#

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

[已解决] 如何修改函数去重

评分

评分

评分