VBA在可变范围和总和之间加上一些空行的variables范围

我做了一些研究，感觉这是一个相当简单的问题。

我想总结一个variables范围：在我的表中，L25可以运行到无穷大，棘手的部分（对于我），它不应该直到最后一行，而是最后一行-3，因为上面有一个“总计”文本应该是的地方

所以总数应该在L40中加总，在不同情况下可以是另一个L行。

我认为这并不难，但是因为我是初学者，我认为我犯了一个小错误。 为了显示我的努力，我设法得到这个：

Sub Sumvariablerow Range("L40").Select ActiveCell.FormulaR1C1 = "=SUM(R[-15]C:R[-3]C)" End Sub 

感觉应该是这样的：

 Sub Sumvariablerow Range("L40").Select ActiveCell.FormulaR1C1 = "=SUM(L25:L" & R - 3 & ")" End Sub 

发现了以下主题： 如何在VBA中将可变范围内的值相加？

VBA加总可变长度的列

http://www.mrexcel.com/forum/excel-questions/584966-visual-basic-applications-sum-variable-length-column.html

http://www.mrexcel.com/forum/excel-questions/251264-sum-formula-variable-rowcount-using-visual-basic-applications.html

提前致谢

Answer 1

尝试使用下面的代码

 Sub test() Range("L" & Range("L25").End(xlDown).Row + 3).Formula = WorksheetFunction.Sum(Range("L25:L" & Range("L25").End(xlDown).Row)) End Sub 

Answer 2

也许这样的事情：

 Range("L40").Formula = "=SUM(L25:L" & 24 + Range(Range("L25"), Range("L25").End(xlDown)).Rows.Count & ")" 

Answer 3

尝试这个：

 Sub Sumvariablerow() Dim LastRow As Long LastRow = Range("L25").End(xlDown).Row Cells(LastRow + 2, 12).Value = "total" Cells(LastRow + 3, 12).Select ActiveCell.Formula = "=SUM(L25:" & ActiveCell.Offset(Rowoffset:=-3).Address & ")" End Sub