[已解决]按货物统计供应商每年货物合计金额

cnai · 发表于 2024-4-25 00:27

本帖最后由 cnai 于 2024-4-25 10:05 编辑

深夜的大神，请教怎么用函数统计汇总，感谢！

hugeinfo · 发表于 2024-4-25 07:36

直接透视

cnai · 发表于 2024-4-25 08:00

请教用函数怎么实现这需求，谢谢

无关岁月 · 发表于 2024-4-25 08:01

复制代码

swl4561255 · 发表于 2024-4-25 08:04

Sub test()
arr = Range("A1").CurrentRegion
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
Dim brr(1 To 100, 1 To 2)
For i = 2 To UBound(arr)
d1(arr(i, 1) & "-" & arr(i, 2)) = ""
d2(arr(i, 1) & "-" & arr(i, 2) & "-" & Year(arr(i, 3))) = d2(arr(i, 1) & "-" & arr(i, 2) & "-" & Year(arr(i, 3))) + arr(i, 4)
Next
[K1].Resize(1, 4) = Array("供应商", "货物品名称", "2023年金额合计", "2024年金额合计")
K1 = d1.keys
[K2].Resize(d1.Count, 1) = Application.Transpose(K1)
[K2].Resize(d1.Count, 1).TextToColumns other:=True, otherchar:="-"
For j = 1 To d1.Count
For K = 1 To 2
brr(j, K) = d2(Cells(j + 1, "K") & "-" & Cells(j + 1, "L") & "-" & Left(Cells(1, 12 + K), 4))
Next
Next
[M2].Resize(d1.Count, 2) = brr
Set d1 = Nothing
Set d2 = Nothing
End Sub

复制代码

swl4561255 · 发表于 2024-4-25 08:11

本帖最后由 swl4561255 于 2024-4-25 08:14 编辑

K2数组公式，右拉下拉

=INDEX(A:A,SMALL(IF(MATCH($A$2:$A$7&$B$2:$B$7,$A$2:$A$7&$B$2:$B$7,)=ROW($1:$6),ROW($2:$7),4^8),ROW(A1)))&""

复制代码

M2公式，右拉下拉

=SUMPRODUCT(($A$2:$A$7=$K2)*($B$2:$B$7=$L2)*(YEAR($C$2:$C$7)=--LEFT(M$1,4))*$D$2:$D$7)

复制代码

cnai · 发表于 2024-4-25 08:35

swl4561255 发表于 2024-4-25 08:04

非常感谢，VBA能完美解决这个问题，个人能力问题，依葫芦画瓢有困难。

铁马金戈1970 · 发表于 2024-4-25 09:51

K2=UNIQUE(A2:B7)

M2=SUMPRODUCT((YEAR($C$2:$C$7)=2023)*($A$2:$A$7&$B$2:$B$7=K2&L2)*$D$2:$D$7)

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

[已解决] [已解决]按货物统计供应商每年货物合计金额