根据BC不为空统计上面 计件求和汇总

38180203

附件是模拟了一个结果WPS,,感谢帮忙!

longwin

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    With Sheet1
        r = .Cells(Rows.Count, 2).End(3).Row
        arr = .Range(.[a4], .Cells(r, "l"))
        For i = 1 To UBound(arr)
            If arr(i, 2) = Empty Then
                x = x + arr(i, 12)
            Else
                For j = i To UBound(arr)
                    If arr(j, 2) = Empty Then Exit For
                    arr(j, 12) = x
                Next
                x = 0
                i = j - 1
            End If
        Next
        .Cells(4, "l").Resize(UBound(arr)) = Application.Index(arr, , 12)
    End With
    Beep
End Sub

38180203

quqiyuan 发表于 2024-10-19 18:09
代码如下。。。
Sub test()
    With Sheet1

感谢老师,  代码可以实现求和功能 ,,,如果能把相乘的公式也写进去就完美了