保留唯一值，保留两个重复值的“和值”

薄暮知秋 · 发表于 2024-5-16 14:56

本帖最后由薄暮知秋于 2024-5-16 17:57 编辑

去重、重复图书（库存总数求和.png

去重、重复图书（库存总数求和.7z (88.12 KB, 下载次数: 17)

无关岁月 · 发表于 2024-5-16 15:01

=GROUPBY(A1:A2486,C1:C2486,SUM,3,0)

复制代码

hxj119 · 发表于 2024-5-16 15:02

去重复：=UNIQUE(A2:A2486)

hxj119 · 发表于 2024-5-16 15:06

数量：=SUMIF($A$2:$A$2486,E2,$C$2:$C$2486)

我的城市你来过 · 发表于 2024-5-16 15:22

=IFNA(LET(x,UNIQUE($A:$B),HSTACK(x,SUMIFS($C:$C,$A:$A,INDEX(TAKE(x,,1),ROW($A$1:$A$2100))))),"")

你是那块小饼干 · 发表于 2024-5-16 15:34

=REDUCE({"商品名称","定价","库存总数"},UNIQUE(A2:A2486),LAMBDA(X,Y,VSTACK(X,HSTACK(Y,XLOOKUP(Y,A2:A2486,B2:B2486),SUM(FILTER(C2:C2486,A2:A2486=Y,""))))))

复制代码

zhangcheng6688 · 发表于 2024-5-17 07:04

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
s = arr(i, 1)
If Not d.exists(s) Then
   m = m + 1
   d(s) = m
   For j = 1 To UBound(arr, 2)
      brr(m, j) = arr(i, j)
   Next
Else
   r = d(s)
   brr(r, 3) = brr(r, 3) + arr(i, 3)
End If
Next
[j1].Resize(1, 3) = Array("商品名称", "定价", "库存总量")
[j2].Resize(m, 3) = brr
End Sub

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

[已解决] 保留唯一值，保留两个重复值的“和值”

评分

评分

评分