如果求每个业务员每种产品的销售价格(放在一起)？

lxy285440076

如果求每个业务员每种产品的销售价格(放在一起).zip (9.92 KB, 下载次数: 19)

2024-7-20 19:38 上传

点击文件名下载附件

我的城市你来过

=REDUCE($A$1:$D$1,BYROW(UNIQUE($A$2:$C$29),ARRAYTOTEXT),LAMBDA(x,y,VSTACK(x,HSTACK(TEXTSPLIT(y,","),TEXTJOIN("/",,FILTER($D$2:$D$29,BYROW($A$2:$C$29,ARRAYTOTEXT)=y))))))

我的城市你来过

=REDUCE($A$1:$D$1,BYROW(UNIQUE($A$2:$C$29),ARRAYTOTEXT),LAMBDA(x,y,VSTACK(x,HSTACK(TEXTSPLIT(y,","),TEXTJOIN("/",,SORT(UNIQUE(FILTER($D$2:$D$29,BYROW($A$2:$C$29,ARRAYTOTEXT)=y))))))))

lxy285440076

#NAME?
错误值

lxy285440076

#NAME?
错误值
估计版本太低了

飞天篮球猪

有没有Power Pivot或者Power Query，都可以实现。




高版本新函数GROUPBY也可以
。

jisijie630

版本低了，没有TEXTJOIN函数：

=TEXTJOIN("/",1,IF(ISNA(MATCH(ROW($1:$999),IF(A$2:A$29&C$2:C$29=F2&H2,D$2:D$29),)),"",ROW($1:$999)))

cnmlgb9998

练一下 函数 。。。。。。。。。。。。。。。。


是这个效果吗？

yellowhawk

=IFERROR(TEXTJOIN("/",1,UNIQUE(FILTER($D$2:$D$29,$G2&$H2=$B$2:$B$29&$C$2:$C$29))),"")

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   s = arr(i, 2) & arr(i, 3)
   If Not d.exists(s) Then
      d(s) = arr(i, 4)
   Else
      d(s) = d(s) & "/" & arr(i, 4)
   End If
Next
brr = [f1].CurrentRegion
For i = 2 To UBound(brr)
   brr(i, 4) = d(brr(i, 2) & brr(i, 3))
Next
[f1].CurrentRegion = brr
End Sub