分类合计

bjg_22000

你是那块小饼干 发表于 2024-11-26 16:36

出现#SPILL这个

bjg_22000

忙到飞起 发表于 2024-11-26 15:53
=SUMIFS($C$2:$C$9,$A$2:$A$9,$E2,$B$2:$B$9,F$1)
填充

非常感谢指点！

zhangcheng6688

学习一下字典
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   If Not d.exists(arr(i, 1)) Then
      Set d(arr(i, 1)) = CreateObject("scripting.dictionary")
   End If
   d(arr(i, 1))(arr(i, 2)) = d(arr(i, 1))(arr(i, 2)) + arr(i, 3)
Next
brr = [e1].CurrentRegion
For i = 2 To UBound(brr)
   If d.exists(brr(i, 1)) Then
      For j = 2 To UBound(brr, 2)
         If d(brr(i, 1)).exists(brr(1, j)) Then
            brr(i, j) = d(brr(i, 1))(brr(1, j))
         End If
      Next
   End If
Next
[e1].CurrentRegion = brr
End Sub

yellowhawk

=SUM(($A$2:$A$9=$E2)*($B$2:$B$9=F$1)*$C$2:$C$9)

mjm04

参与下

=PIVOTBY(A1:A9,B1:B9,C1:C9,SUM,,0,,0)

bjg_22000

mjm04 发表于 2024-11-27 09:21
参与下

=PIVOTBY(A1:A9,B1:B9,C1:C9,SUM,,0,,0)

非常感谢指教！