同一工作簿中,不同工作表中相同列求和

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、最后只要点击按钮即可