使用VBA将活动单元格上方的几个单元格相加

我需要使用VBA来设置一个单元格，以便在活动单元格之上的几个单元格之和。 我玩过一些我碰到过的代码，但它被设置为将整个列拉到活动单元格上方。 我不明白代码足以修改它以上面的单元格的两个和三个行的总和。 这是我到目前为止（只有一部分的macros发布）：

Sub QRTLYdatagrab() ''''Script leading up to this point has been omitted'''' Range("U1").End(xlDown).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "SUM('Asset_Dtl for CEQs for FAS 157'!J:J)" Range("U1").End(xlDown).Offset(2, 0).Select Dim r As Range, rAbove As Range Dim wf As WorksheetFunction Set wf = Application.WorksheetFunction Set r = ActiveCell Set rAbove = Range(r.Offset(-2, 0), Cells(2, r.Column)) r.Formula = "=SUM(" & rAbove.Address & ")" ''''Script after this point has been omitted'''' End Sub 

一个简单的例子：我的数据四分之一可能会使用402行。 我在403中总结了1 – 402行.404是从另一个标签中抽取一笔数额。 我需要406和403和404.请让我知道，如果我需要澄清任何事情，并提前感谢您的任何帮助。

Answer 1

这个答案是由pnuts提供的（网站不会让我select他的回答作为答案）：

“一旦你select了406电池

 Selection.FormulaR1C1 = "=SUM(R[-3]C:R[-2]C)" 

– 昨天的核桃“

下面是我如何将它应用到我自己的macros：

 Range("U1").End(xlDown).Offset(3, 0).Select Selection.FormulaR1C1 = "=SUM(R[-4]C:R[-3]C)" 

这允许macros到列U（我已经build立了两个和单元格）的末尾，然后select单元格向下三行。 然后这个单元格将总和上面的单元格4和3行。