Excel多表统计门店花销

注意事项：每张工作表的表头必须是一样的，数据多少可以不相同。需要把每个工作表的内容，汇总到具有同样表头的总表中，如下图所示。



步骤1：
将工作表切换到“总表”界面，Alt+F11，VBA快捷键（如果是笔记本，Fn+Alt+F11），在弹出的新界面中，左键双击坐标的名为”总表“的工作表，使后续的代码是复制到出现的代码框中。

步骤2：
在右边的空白区域，复制下面的代码：

Sub main()
For Each sh In Sheets
If sh.Name <> "总表" Then
i = sh.Range("D65536").End(3).Row
k = Range("A65536").End(3).Row
sh.Range("A2:D" & i).Copy Range("A" & k + 1)
End If
Next
End Sub

代码段解读：
1.Sub main()——其中Sub 跟括号是固定的，main是宏名，可以随便更改。
2.For Each sh In Sheets——这是遍历全部的工作表，这里要注意，如果你的工作表中包含一些不需要汇总数据的工作表，那么就需要将源数据表备份一份，然后将不需要汇总数据的工作表都删除掉，只剩下总表以及需要汇总数据的工作表。
3.If sh