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

1、在工作當(dāng)中會遇到很多個格式一樣的表格在多個表里面，有時候就需要把他們合并在一起，但是復(fù)制粘貼，不僅工作量大，還容易出錯，所以，給大家一個簡單的方法，可以很容易解決問題，可能在用詞上不當(dāng)，畢竟是為了工作才弄的，還請指教改正。工具：WPS,VBA6（1） 打開需要合并的表格，保證表格格式后綴為.xlsm（2） 在所以文檔最后新建一個sheet表格，命名匯總，并將格式一樣的表頭復(fù)制到該表格（3） ALT+F11，打開源代碼，或者按照以下截圖找到開發(fā)工具-VB編輯器打開，找到匯總，雙擊進入代碼編輯區(qū)，按照表格數(shù)據(jù)復(fù)制粘貼以下代碼：Sub 合并sheets() n = 153 源表個數(shù)，根據(jù)需要修改！

2、nstart = 6 每個單表數(shù)據(jù)的起始行數(shù)，根據(jù)需要修改！ k = nstart 目標(biāo)表的行標(biāo) For i = 1 To n irow = nstart 行標(biāo) While Sheets(i).Cells(irow + 1, 1) 后面?zhèn)€1以第1列數(shù)據(jù)為結(jié)束標(biāo)示,確定源表的行數(shù)，根據(jù)需要修改！ irow = irow + 1 Wend Sheets(i).Rows(nstart & : & irow).Copy 復(fù)制源數(shù)據(jù)行 Sheets(n + 1).Activate Sheets(n + 1).Cells(k, 1).Select ActiveSheet.Paste 粘貼數(shù)據(jù) k = k

3、+ irow - nstart + 1 Next iEnd Sub此處將需要修改的幾個代碼數(shù)據(jù)，解釋如下：Sub 合并sheets()n = 3 源表個數(shù)，根據(jù)需要修改，在我這個例子，匯總前面只有3個表格，所以此處n=3nstart = 3每個單表數(shù)據(jù)的起始行數(shù)，根據(jù)需要修改，也就是你要從每個表里復(fù)制的數(shù)據(jù)的起始行數(shù)，在我的例子當(dāng)中，除了表頭開始就是第3行開始，所以此處nstart = 3 k = nstart 目標(biāo)表的行標(biāo) For i = 1 To n irow = nstart 行標(biāo) While Sheets(i).Cells(irow + 1, 3) 后面?zhèn)€3以第1列數(shù)據(jù)為結(jié)束標(biāo)示,確定源表的行數(shù)，根據(jù)需要修改，此處后面標(biāo)為綠色的3的意思是你要從每個表里復(fù)制的數(shù)據(jù)的行數(shù)，從上面復(fù)制的數(shù)據(jù)的起始行數(shù)為1算起，我這個表里為3 irow = irow + 1 Wend Sheets(i).Rows(nstart & : & irow).Copy 復(fù)制源數(shù)據(jù)行 Sheets(n + 1).Activate Sheets(n + 1).Cells(k, 1).Select ActiveSheet.Paste 粘貼數(shù)據(jù) k = k + irow - nstar