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