EXCEL中sum函数,求和行数不确定如图,我在C列使用SUM函数,求和B列,但是求和的行数不确定.如A1=10,则C1=B1+B2+B3+B4,直至遇到下一个A列为10结束我要的是D列的结果,使用函数=IF(A1=10,SUM(B1:B4),"")
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 16:04:08
EXCEL中sum函数,求和行数不确定如图,我在C列使用SUM函数,求和B列,但是求和的行数不确定.如A1=10,则C1=B1+B2+B3+B4,直至遇到下一个A列为10结束我要的是D列的结果,使用函数=IF(A1=10,SUM(B1:B4),"")
EXCEL中sum函数,求和行数不确定
如图,我在C列使用SUM函数,求和B列,但是求和的行数不确定.
如A1=10,则C1=B1+B2+B3+B4,直至遇到下一个A列为10结束
我要的是D列的结果,使用函数=IF(A1=10,SUM(B1:B4),"")得出的是C列的结果
EXCEL中sum函数,求和行数不确定如图,我在C列使用SUM函数,求和B列,但是求和的行数不确定.如A1=10,则C1=B1+B2+B3+B4,直至遇到下一个A列为10结束我要的是D列的结果,使用函数=IF(A1=10,SUM(B1:B4),"")
Sub a()
For i = 2 To [a65536].End(3).Row
For j = i + 1 To [a65536].End(3).Row
If Range("A" & i) = 10 And Range("A" & j) = 10 Then
Range("C" & i) = WorksheetFunction.Sum(Range("B" & i & ":B" & j - 1))
Exit For
End If
Next j
Next i
For i = [a65536].End(3).Row To 2 Step -1
If Range("A" & i) = 10 Then
Range("C" & i) = WorksheetFunction.Sum(Range("B:B")) - WorksheetFunction.Sum(Range("C2:C" & i - 1))
Exit Sub
End If
Next i
End Sub右键SHEET1,查看代码.粘贴上面的代码.运行看看.