excel最后一行自动求和

假如是A列吧
在其中插入一个模块将下面的代码复制
Sub
qiuhe()
Application.CommandBars("Worksheet
menu
bar").Controls.Add(Type:=msoControlPopup,
before:=11).Caption
=
"计算"
Application.CommandBars("Worksheet
menu
bar").Controls("计算").Controls.Add(Type:=msoControlButton,
before:=1).Caption
=
"求和"
Application.CommandBars("Worksheet
menu
bar").Controls("计算").Controls("求和").OnAction
=
"total_cacu"
End
Sub
sub
total_cacu()
dim
i,total_rows
as
integer
dim
tota
as
double
tota=0
total_rows
=
Worksheets("sheet1").[a65536].End(xlUp).Row
for
i=1
to
total_rows
step
1
tota=tota+cells(i,1).value
next
i
cells(total_rows+1,1).value=tota
end
sub
试试看行不行.因为我不知道你具体的表格格式，所以可能看上去有点单调。
程序能在菜单栏增加一个菜单项“计算”-“求和”，只要你点一下“求和”就可以实现你想要的了。前一段代码由于显示宽度的原因分了两行，复制到编辑器中注意会出错。这个只是手动计算，如果想自动那要用到监视单元格。一时半会我写不出来了，我也初学。

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v22xf7ryeyx2x227ee2.html