excel吧 关注：280,604贴子：1,540,187
- 30回复贴，共1页
难住了，我想要找出这列里面的任意10行数值相加总和大于或等于300的10行，请大神帮帮我，我百度不出了
菠萝蜜
Option Explicit
Sub abc()
Dim a, i, sum
a = Range("a1:a" & [a1].End(xlDown).Row + 1).Value
[b:b].Clear
For i = 2 To UBound(a)
sum = sum + a(i, 1)
If i = 11 Then Exit For
Next
For i = i To UBound(a) - 1
If sum >= 300 Then
With Cells(i - 9, "b")
.Resize(10).Interior.Color = vbYellow
.Value = sum
End With
End If
sum = sum - a(i - 9, 1)
sum = sum + a(i + 1, 1)
Next
End Sub
