vba - 如何使用 VBA 对选定范围的列求和？

选择包含数值的范围后，我想通过 VBA 在每列的底部(即最后选定行之后的行)输入一个 =SUM 公式。对于每一列，它应该对整个选择的相应列中的所有值进行求和。

我该怎么做？

现在，我正在使用宏记录器给出的代码:ActiveCell.FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)"。问题是当我的范围大于 10 行时，它不会考虑底部 10 行以上的行。

enter image description here

最佳答案

这是一个简单的非 VBA 方法。

选择要求和的单元格，然后按 Alt-=。

快照

enter image description here

这是执行相同操作的一行 VBA 代码。

Sub AutoSum()
    '~~> After you select your range
    Application.CommandBars.ExecuteMso ("AutoSum")
End Sub

关于vba - 如何使用 VBA 对选定范围的列求和？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/9800808/