VBA分类汇总递减求和

lsbenet

求助各位大神，附表中要实现按产品编码汇总得到已完工数量，第一道工序的已完工数量=后面几道工序在制数量的和，第二道工序=第三道之后的几道工序在制数量的和，如何实现

LIUZHU

用公式，不用VBA

lsbenet

LIUZHU 发表于 2023-3-21 09:07
用公式，不用VBA

非常感谢！

fzxba

1. Sub test0()
   
2.   Dim ar, br() As Double, i As Long
   
3.   ar = Range("D4", Cells(Rows.Count, "A").End(xlUp).Offset(1))
   
4.   ReDim br(1 To UBound(ar) - 1, 1 To 1)
   
5.   For i = UBound(ar) - 1 To 1 Step -1
   
6.     If ar(i, 1) = ar(i + 1, 1) Then br(i, 1) = ar(i + 1, 4) + br(i + 1, 1)
   
7.   Next
   
8.   Range("E4").Resize(UBound(br)) = br
   
9. End Sub

复制代码

fzxba