求大神们指点一下

魏琳211

一个数据表里需要符合多个条件求和不为0的每一个ID下的前七个数据和剩余数据，我把每个ID终止的位置都标注出来了，最重要的是用公式或者VBA能计算求和啊，我想的是循环和条件判断结合，但是没学会VBA编程。数据表里需要根据每个ID结点，计算利润一列里每个ID结束地方的总和，利润为0的跳过，在一个ID内推迟计算。需要计算的是每个ID的前七亏损，前七盈利，自由盈亏就是在七个数据之后，每个ID还有利润的话就继续计算剩下的利润。最后的结果就是希望在有“X”的旁边出现三种求和结果。
自由前7.zip (513.42 KB, 下载次数: 16)

2017-5-14 11:00 上传

点击文件名下载附件

魏琳211

一周了都，还是没人帮我解决一下啊。。大神们在哪里？我是新人啊！

半百

或许别人都看不懂你的要求。
你是想在U列为X的单元格左边的三个单元格里返回结果吗？
最好你能在R9:T9和R29：T29单元格中给出正确的结果，并说明是怎么计算的。

魏琳211

半百 发表于 2017-5-23 10:45
或许别人都看不懂你的要求。
你是想在U列为X的单元格左边的三个单元格里返回结果吗？
最好你能在R9:T9和R ...

好哒，我这就标示

魏琳211

半百

请测试
Sub TEST()
R = Cells(Rows.Count, 1).End(3).Row
ARR = Range("N2:U" & R)
ReDim BRR(1 To R - 1, 1 To 3)
For I = 1 To R - 1
        N = N + 1
        If N < 8 Then
            S = S + ARR(I, 1)
        Else
            Z = Z + ARR(I, 1)
        End If
If ARR(I, 8) = "X" Then
        If S > 0 Then
            BRR(I, 2) = S
        Else
            BRR(I, 1) = S
        End If
        If Z <> 0 Then BRR(I, 3) = Z
      N = 0: S = 0: Z = 0
    End If
Next
Range("R2").Resize(R - 1, 3) = BRR
End Sub

魏琳211

半百 发表于 2017-5-23 21:16
请测试
Sub TEST()
R = Cells(Rows.Count, 1).End(3).Row

我试一下。。。

魏琳211

半百 发表于 2017-5-23 21:16
请测试
Sub TEST()
R = Cells(Rows.Count, 1).End(3).Row

如果求和项中有0的话，能否计算每个ID中前七个不为0的求和项啊？

魏琳211

半百 发表于 2017-5-23 21:16
请测试
Sub TEST()
R = Cells(Rows.Count, 1).End(3).Row

数据中0的个数还是不太少的，求和的时候都不能算0，有几个0就得往下顺延几个计算。

半百

魏琳211 发表于 2017-5-25 09:01
数据中0的个数还是不太少的，求和的时候都不能算0，有几个0就得往下顺延几个计算。

加个判断可以吗？
Sub TEST()
R = Cells(Rows.Count, 1).End(3).Row
ARR = Range("N2:U" & R)
ReDim BRR(1 To R - 1, 1 To 3)
For I = 1 To R - 1
    If ARR(I, 1) <> 0 Then
        N = N + 1
        If N < 8 Then
            S = S + ARR(I, 1)
        Else
            Z = Z + ARR(I, 1)
        End If
    End If
    If ARR(I, 8) = "X" Then
        If S > 0 Then
            BRR(I, 2) = S
        Else
            BRR(I, 1) = S
        End If
        If Z <> 0 Then BRR(I, 3) = Z
      N = 0: S = 0: Z = 0
    End If
Next
Range("R2").Resize(R - 1, 3) = BRR
End Sub