我们项目管理有两个工作薄一個里面有多个表，每天建一个记录当天项目，另一个工作薄有多个表，其中一个是所有项目汇总

以前都是第一个工作薄一个表做完，再复制粘贴到第二个工作薄的汇总表中

写了个VBA宏完成这个工作。

'除去表头所有行选中 '打开第二个工作薄，激活汇总表 '选中最后一行丅一行第一个表格 End Sub
然后在对应的表里执行该宏就可以把所有该表的数据复制到另一个工作薄的汇总表里了。