拼半天也没拼成功，想看一下高手代码

zpy2

wp231957 发表于 2024-9-26 09:57
是wps吗  sql应用没那么宽   要求表格必须十分标准

你的表格很标准，很适合sql计算。
我用的是在线工具。可以看看我的日志。

zhangcheng6688

学习一下字典
Sub test()
lastr = Cells(Rows.Count, "f").End(xlUp).Row
arr = Range("f4:h" & lastr)
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 3)
For i = 2 To UBound(arr)
   strkey = arr(i, 1) & arr(i, 2)
   If Not d.exists(strkey) Then
      m = m + 1
      For j = 1 To UBound(arr, 2)
         brr(m, j) = arr(i, j)
      Next
      d(strkey) = m
   Else
      r = d(strkey)
      brr(r, 3) = brr(r, 3) + arr(i, 3)
   End If
Next
[p4].CurrentRegion.Offset(1).ClearContents
[p5].Resize(m, 3) = brr
End Sub

mykitami

=REDUCE(F4:H4,SORT(BYROW(UNIQUE(F5:G13),LAMBDA(m,TEXTJOIN("|",,m)))),LAMBDA(x,y,LET(a,TEXTSPLIT(y,"|",,1),VSTACK(x,HSTACK(a,SUMIFS(H:H,F:F,INDEX(a,1),G:G,INDEX(a,2)))))))