谁能帮我设计一个excel宏，智能改变单元格的位置

来源：百度知道 编辑：UC知道 时间：2024/05/06 04:20:18
比方说第一个表：A1到A5分别为1，2，3，4，5.运行这个宏后，它会自动将单元格A6填充为上面五个值的总和15.
第二个表：A1到A10分别为1，2，3，...，10.。运行这个宏后，它会自动在单元格A11填充为上面十个值的总和55.
关键是这个填充的位置是改变的，跟上面的数据个数有关系。
小弟恭请高手指点！
首先很感谢这位传说中的高手，但是我的表格中又有了这么一个问题。两个表格的第一行的上面增加了一个空白行（用来添加标题的）。 这个函数应该再怎么改一下。我会在追加高分的。

*************
改好了

Sub summarize()
a = WorksheetFunction.Counta(Range("a:a"))
Cells(a + 1, 1) = WorksheetFunction.Sum(Range("a1:" & "a" & a))
End Sub

法师水平就是高

如果新问题，只要改成这样就可以了！
Sub summarize()
a = WorksheetFunction.Counta(Range("a:a"))
Cells(a + 1, 1) = WorksheetFunction.Sum(Range("a2:" & "a" & a))
End Sub

Sub summarize()
a = WorksheetFunction.Counta(Range("a:a"))
Cells(a + 1, 1) = WorksheetFunction.Sum(Range("a2:" & "a" & a))
End Sub