求统计类的公式

331952289

quqiyuan 发表于 2025-3-31 17:15

这个我会用，但每个公式都要复制！

zhangcheng6688

借楼学习一下字典，打扰了
Sub test()
lastr = Cells(Rows.Count, "e").End(xlUp).Row
arr = Range("a1:m" & lastr)
Set dic = CreateObject("scripting.dictionary")
For i = 3 To UBound(arr) Step 4
   If Not dic.exists(arr(i, 2)) Then
      Set dic(arr(i, 2)) = CreateObject("scripting.dictionary")
   End If
   For j = 6 To UBound(arr, 2)
      If arr(i - 1, j) <> "" Then
         dic(arr(i, 2))(arr(i - 1, j)) = dic(arr(i, 2))(arr(i - 1, j)) + arr(i + 2, j)
      End If
   Next
Next
brr = [r1].CurrentRegion
For i = 3 To UBound(brr)
   For j = 2 To UBound(brr, 2)
      If dic.exists(brr(i, 1)) Then
         If dic(brr(i, 1)).exists(brr(2, j)) Then
            brr(i, j) = dic(brr(i, 1))(brr(2, j))
         End If
      End If
   Next
Next
[r1].CurrentRegion = brr
Set dic = Nothing
End Sub

xtmyd5156

表格设计需要调整。

solextrade

331952289 发表于 2025-3-31 18:14
感谢大师，如果求的是入库的数量，这个要怎么设？我都没有研究明白哪一行设的是结果的值？

=SUMIF(OFFSET($F$1,MATCH($R3,$B:$B,)-2,,,8),S$2,OFFSET($F$1,MATCH($R3,$B:$B,),))