如何对行和下一行中的值求和,并将它们放在列

时间:2017-03-20 12:19:00

标签: excel vba excel-vba sum

因此,在C列中,我有一个名为 inflow 的值,从第3行开始

在D列中,我想要对C列的当前行和前一行的值进行求和(例如,第4行,第D列=第3行,第C列+第4行,第C列),直到结束表

截图

screenshot

1 个答案:

答案 0 :(得分:1)

你想在VBA中这样做吗?

通过可拖动的配方很容易获得。

在D3你显然会有C3。

在D4中你会有=SUM($C$3:C4)

希望它有所帮助。 :)

编辑:我可能误解了你的问题。如果事实证明你只想总结最后两个值,而不是行中的所有值,直到第三行,你应该省略$所以它将是:D4 =SUM(C3:C4)

向下拖动会给你D5 =SUM(C4:C5)等等。

EDIT2:

好吧,我不确定你想要什么,但如果你想用VBA扩展公式,这应该可以解决问题。请尝试一下,让我知道它是否适合你。

Sub autosum()
Dim r As Integer, rmax As Integer

rmax = Range("C3").End(xlDown).Row

For r = 4 To rmax
    Range("D" & r).FormulaR1C1 = "=SUM(R" & r - 1 & "C3:R" & r & "C3)"
Next r

End Sub