Excel 2007 Sum 可变长度列

Question

我正在尝试创建一个宏来对可变长度列求和。我尝试了一些不同的方法，但没有成功。我想要做的是：

如果活动单元格是单元格 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

宏可以单击 [sum] 工具栏按钮（有趣的 E - sigma）并按 Enter 键吗？

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