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

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 WithNextEnd Sub

4、选择开发工具-插入，在表单控件下选择按钮（窗体控件），并在表中空白处点击，在弹出的对话框中选择求和，生成一个按钮。

5、最后只要点击按钮即可