Excel 2007总和可变长度列

我试图做一个macros来总结一个可变长度的列。 我尝试了一些不同的东西，但他们没有奏效。 我想要做的是：

如果活动单元格是单元格B17，我希望B17等于B1到B16的总和。 同样，如果活动单元格是单元格D22，我想D22等于D1到D21的总和。

所以基本上它是在所选列中的活动单元格上方的所有单元格的总和。

谢谢，詹姆斯。

Answer 1

  Sub MakeSum（） 

 If ActiveCell.Row > 1 Then ActiveCell.FormulaR1C1 = "=SUM(R1C:R[-1]C)" End If 

结束小组

Answer 2

=SUM(R1C:R[-1]C)还是我错过了什么？

Answer 3

macros可以点击工具栏button（有趣的E – 西格玛），然后按回车？

Answer 4

试试这个和调整特殊情况（第1行等..）

 Public Sub abcd() Dim rw As Long Dim cl As Long Dim s As Double Dim rng As Range rw = ActiveCell.Row cl = ActiveCell.Column Set rng = Range(Cells(1, cl), Cells(rw - 1, cl)) s = Application.WorksheetFunction.Sum(rng) MsgBox s ActiveCell.Value = s End Sub