1、首先将准备好如下格式的账单：
2、按下alt+F11，按下插入-模块，如下图：
3、在空白处复制下面的代码，保存后关掉该窗口
Sub 求和()
MsgBox "不同工作表相同列求和"
Dim a
For i = 1 To Sheets.Count
With Sheets(i).Select
a = ActiveSheet.Cells(65536, 5).End(xlUp).Row
ActiveSheet.Cells(a + 1, 5).Formula = "=sum(E5:E" & a & ")"
ActiveSheet.Cells(a + 1, 1).Value = "合计："
End With
Next
End Sub
4、选择开发工具-插入，在表单控件下选择按钮（窗体控件），并在表中空白处点击，在弹出的对话框中选择求和，生成一个按钮。
5、最后只要点击按钮即可
