如果Di>=3000，则累计相加B2到Bi,并将结果显示在B2单元格

小小小小白

如果Di>=3000，则累计相加B2到Bi,并将结果显示在B2单元格，怎么写，求大佬帮忙，谢谢
例如D6>3000，B2=B3+B4+B5+B6这样，谢谢

weare2

至少要有个附件吧

hfwufanhf2006

Dim arr()
hj = 0
js = 1
For i = 3 To [d100000].End(3).Row
    hj = hj + Cells(i, 2)
    ReDim Preserve arr(js)
    arr(js) = hj
    js = js + 1
Next i
For i = 3 To [d100000].End(3).Row
    If Cells(i, 4) >= 3000 Then
       Cells(2, 2) = arr(i - 2)
       Exit For
    End If
Next i

如果D列有多个>=3000的数，则从上往下遇到第一个大于3000的就停止了，因为b2单元格只能存放显示一个数值。

0126

B2=SUM(B3:INDEX(B:B,MATCH(3000,D:D,-1)))