VBA 依父级料号为条件将子级料号的数量求和

四海倚天

如图：主料号为8位数，将其下级子料号的数量求和。表内空行可能会删除!

hfwufanhf2006

如果你每个类别中间都有空行的话，试下下面的代码：
For i = 3 To [a10000].End(3).Row
    hs = i
    hj = 0
    For k = i + 1 To [a10000].End(3).Row
        If Len(Trim(Cells(k, 1))) = 0 Then
           Exit For
        End If
        hj = hj + Cells(k, "h")
    Next k
    i = k
    Cells(hs, "h") = hj
Next i

如果删除了空行，就没有分割标志了，因为主料号与子料号之间并没有逻辑关联

四海倚天

hfwufanhf2006 发表于 2019-12-15 13:58
如果你每个类别中间都有空行的话，试下下面的代码：
For i = 3 To [a10000].End(3).Row
    hs = i

非常感谢您！