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

1、在工作當(dāng)中會遇到很多個格式一樣的表格在多個表里而，有時候就需要把他們合并在一 起，但是復(fù)制粘貼，不僅工作量大，還容易出錯，所以，給大家一個簡單的方法，可以很容 易解決問題，可能在用詞上不當(dāng)，畢竟是為了工作才弄的，還請指教改正。4AECD1信息登記表2序號姓名學(xué)號備注31張三20110212142王二20110212253李四20110212364 ABCDEL信息登記表?序號姓名學(xué)號備注31趙斌201102125L2李根20110212653王杰20110212712工具：WPS,7BA6（1）打開雲(yún)要臺并的表格，保證表格恪式后綴為xlsm（2）在所以文檔最后新建一個shg表格，命名匯總，并將

2、格式一樣的表頭復(fù)制到該表格ABCD信息登記表序號姓名學(xué)號備注（3） ALT+F11,打開源代碼，或者按照以下截圖找到開發(fā)工具VB編輯器打開,TT；“Tnc務(wù)入 頁面冇局 公式 啡宏 親制耘 計:F二方刁 宏安全住VB 鋌許“力審聞 視圖|開友工耳|COMtei瀕 設(shè)計樟式 丘件巨竺 至看代空云廉窮0F1O D1T3呂匡圉AN斷fir 已 *3 曰 R 町 ” W 我的WPS x E SFS Microsoft Excel 工柞應(yīng).xhsx * X +A2 Q 序號i R i C DEFG r K IJ找到匯總，雙擊迸入代碼編輯區(qū)，按照表格數(shù)據(jù)復(fù)制粘貼以下代碼：Sub 臺并 shcctsOn=1

3、53*源表個數(shù)，根據(jù)需要修改!nstan = 6 每個單表數(shù)據(jù)的起始行數(shù),根據(jù)雲(yún)要修改!k = nstari1 標(biāo)表的行標(biāo)For i = 1 To nirow = nstart 行標(biāo)While ShccisG).Cclls(irow + 1,1) ”后面?zhèn)€1以第1列數(shù)據(jù)為結(jié)束標(biāo)示，確定源表的行教，根據(jù)雪要修改！irow = irow + 1WendShects(i).Rows(nstart & M:H & irow).Copy 復(fù)制源敵據(jù)行Shccts(n + 1). ActivateShccts(n + l).Ccl!s(k, l).SclcctActivcShcct.Pastc 貼敵據(jù)k

4、= k + irow - nstart + 1Next iEnd Sub角 Vicretoft Wud 8c - Micrcvoft Excd 工 4wt4(BB曲 丈g MidiiAa) 咖0 a 碩 xn迪i 應(yīng)口砌 f hi1FF$kaO 6k 1hitlirMtiiXI174ca o彩！OS li Calle (k Q S*l*ct 燄ru帖站鐵山 k k 仿s - Mti/t I*Mt iU4 Sdt.此處將雲(yún)要修改的幾個代碼數(shù)據(jù)，解釋如下:Sub 臺并 shcctsQ日曹 PrjeGt(DJ建 Iflicro: 口電MFS夬格命毀 筍 Sheet 1B Sheet2J Sheet3

5、 B (Sheetl)6heet2) 6heet3) MQQtq CL忌丿 Thi. sWorkbook、敵，根據(jù)雲(yún)要修改.在我這彳-/a *t*jr O説荷F3有3個表格,I 1LPFr lJ 1 Ur /J r* c 人LiaJ. uJARC1 信息登記表2序號姓名學(xué)號備注312玉20110212642王凱20110212753李想20110212867k = nstart *目標(biāo)表的行標(biāo)For i = 1 To nirow = nsmrt行標(biāo)While Shccts(i).Cclls(in)w + 1) HH |V WendShccts(i).Rows(nstart & :” & irow).Copy制源數(shù)據(jù)行Shccts(n + 1). ActivateShccts(n + l).Cdls(k, l).SclcctActivcShcct.Pastc