1、在工作当中会遇到很多个格式一样的表格在多个表里面，有时候就需要把他们合并在一起，但是复制粘贴，不仅工作量大，还容易出错，所以，给大家一个简单的方法，可以很容易解决问题，可能在用词上不当，毕竟是为了工作才弄的，还请指教改正。工具：WPS,VBA6（1 ） 打开需要合并的表格，保证表格格式后缀为.xlsm（2 ） 在所以文档最后新建一个 sheet 表格，命名汇总，并将格式一样的表头复制到该表格（3 ） ALT+F11，打开源代码，或者按照以下截图找到开发工具-VB 编辑器打开，找到汇总，双击进入代码编辑区，按照表格数据复制粘贴以下代码：Sub 合并 sheets()n = 153 源表个数，根据
2、需要修改！nstart = 6 每个单表数据的起始行数，根据需要修改！k = nstart 目标表的行标For i = 1 To nirow = nstart 行标While Sheets(i).Cells(irow + 1, 1) “ 后面个 3 以第 1 列数据为结束标示,确定源表的行数，根据需要修改，此处后面标为绿色的 3 的意思是你要从每个表里复制的数据的行数，从上面复制的数据的起始行数为 1 算起，我这个表里为 3irow = irow + 1WendSheets(i).Rows(nstart & “:“ & irow).Copy 复制源数据行Sheets(n + 1).ActivateSheets(n + 1).Cells(k, 1).SelectActiveSheet.Paste 粘贴数据k = k + irow - nstart + 1Next iEnd Sub（3 ） Ctrl+S，F5，关闭回到表格，查看汇总，就会出现下面情况关闭宏即可。
