WPS合并多个sheet到一个里面方法

1、在工作当中会遇到很多个格式一样的表格在多个表里而，有时候就需要把他们合并在一 起，但是复制粘贴，不仅工作量大，还容易出错，所以，给大家一个简单的方法，可以很容 易解决问题，可能在用词上不当，毕竟是为了工作才弄的，还请指教改正。4AECD1信息登记表2序号姓名学号备注31张三20110212142王二20110212253李四20110212364 ABCDEL信息登记表?序号姓名学号备注31赵斌201102125L2李根20110212653王杰20110212712工具：WPS,7BA6（1）打开雲要台并的表格，保证表格恪式后缀为xlsm（2）在所以文档最后新建一个shg表格，命名汇总，并将

2、格式一样的表头复制到该表格ABCD信息登记表序号姓名学号备注（3） ALT+F11,打开源代码，或者按照以下截图找到开发工具VB编辑器打开,TT；“Tnc务入 页面冇局 公式 啡宏 亲制耘 計:F二方刁 宏安全住VB 铤許“力审闻 视图|开友工耳|COMtei濒 设计樟式 丘件巨竺 至看代空云廉穷0F1O D1T3吕匡圉AN斷fir 已 *3 曰 R 町 ” W 我的WPS x E SFS Microsoft Excel 工柞应.xhsx * X +A2 Q 序号i R i C DEFG r K IJ找到汇总，双击迸入代码编辑区，按照表格数据复制粘贴以下代码：Sub 台并 shcctsOn=1

3、53*源表个数，根据需要修改!nstan = 6 每个单表数据的起始行数,根据雲要修改!k = nstari1 标表的行标For i = 1 To nirow = nstart 行标While ShccisG).Cclls(irow + 1,1) ”后面个1以第1列数据为结束标示，确定源表的行教，根据雪要修改！irow = irow + 1WendShects(i).Rows(nstart & M:H & irow).Copy 复制源敌据行Shccts(n + 1). ActivateShccts(n + l).Ccl!s(k, l).SclcctActivcShcct.Pastc 贴敌据k

4、= k + irow - nstart + 1Next iEnd Sub角 Vicretoft Wud 8c - Micrcvoft Excd 工 4wt4(BB曲 丈g MidiiAa) 咖0 a 硕 xn迪i 应口砌 f hi1FF$kaO 6k 1hitlirMtiiXI174ca o彩！OS li Calle (k Q S*l*ct 燄ru帖站铁山 k k 仿s - Mti/t I*Mt iU4 Sdt.此处将雲要修改的几个代码数据，解释如下:Sub 台并 shcctsQ日曹 PrjeGt(DJ建 Iflicro: 口电MFS夬格命毀 筍 Sheet 1B Sheet2J Sheet3

5、 B (Sheetl)6heet2) 6heet3) MQQtq CL忌丿 Thi. sWorkbook、敌，根据雲要修改.在我这彳-/a *t*jr O説荷F3有3个表格,I 1LPFr lJ 1 Ur /J r* c 人LiaJ. uJARC1 信息登记表2序号姓名学号备注312玉20110212642王凯20110212753李想20110212867k = nstart *目标表的行标For i = 1 To nirow = nsmrt行标While Shccts(i).Cclls(in)w + 1) HH |V WendShccts(i).Rows(nstart & :” & irow).Copy制源数据行Shccts(n + 1). ActivateShccts(n + l).Cdls(k, l).SclcctActivcShcct.Pastc