合并多個(gè)工作表和多個(gè)工作簿

1、通過通過 VBAVBA 將當(dāng)前工作簿里的多個(gè)工作表合并到一個(gè)工作表中將當(dāng)前工作簿里的多個(gè)工作表合并到一個(gè)工作表中假設(shè)你有三個(gè)工作表（分別命名為一年級(jí)，二年級(jí)和三年級(jí)），各個(gè)工作表里的數(shù)據(jù)格式和布局一樣。 現(xiàn)在你需要將這三個(gè)工作表合并到一個(gè)工作表里。 見下圖：下面的 VBA 代碼能幫你把當(dāng)前工作簿里各個(gè)工作表里的數(shù)據(jù)合并到一個(gè)新工作表里。同時(shí)需要注意的是，所有工作表里的數(shù)據(jù)結(jié)構(gòu)，列標(biāo)題，以及各列排列的順序都必須一樣。操作如下：1. 按住 Alt + F11 鍵打開 MicrosoftMicrosoft VisualVisual BasicBasic forfor ApplicationsAppl

2、ications 窗口。窗口。2. 2. 點(diǎn)擊插入點(diǎn)擊插入 模塊，再將下面的代碼粘貼到模塊窗口里。模塊，再將下面的代碼粘貼到模塊窗口里。VBA:VBA:將將當(dāng)前工作簿里各個(gè)工作表里的數(shù)據(jù)合并到一個(gè)新工作表里Sub Combine()Dim J As IntegerOn Error Resume NextSheets(1).SelectWorksheets.AddSheets(1).Name = CombinedSheets(2).ActivateRange(A1).EntireRow.SelectSelection.Copy Destination:=Sheets(1).Range(A1)Fo

3、r J = 2 To Sheets.CountSheets(J).ActivateRange(A1).SelectSelection.CurrentRegion.SelectSelection.Offset(1, 0).Resize(Selection.Rows.Count - 1).SelectSelection.Copy Destination:=Sheets(1).Range(A65536).End(xlUp)(2)NextEnd Sub3. 按 F5F5 鍵運(yùn)行代碼。運(yùn)行后，當(dāng)前工作簿里的數(shù)據(jù)都被并合并到一個(gè)名為Combine 的新 工作表中 ， 并列在所有工作表前面。注意：注意：(1

4、) 數(shù)據(jù)必須從單元格 A1 開始，否則代碼無效。(2) 所有的工作表數(shù)據(jù)必須布局一致。(3) 此代碼只能合并當(dāng)前工作簿里的工作表，如果想要合并多個(gè)工作簿里的工作表，此代碼無效。通過通過 KutoolsKutools ForFor ExcelExcel 將多個(gè)工作表或工作簿合并到一個(gè)工作表里將多個(gè)工作表或工作簿合并到一個(gè)工作表里上面介紹的 VBA 代碼還是有些限制的， 但 Kutools for Excel 的匯總匯總功能可以幫你快速合并一個(gè)或多個(gè)工作簿里的工作表。KutoolsKutools forfor ExcelExcel：超過 120 個(gè)便捷工具，30 天無限制免費(fèi)試用。 更多更多免費(fèi)免

5、費(fèi)下載下載假設(shè)你有兩個(gè)工作簿需要合并， 每張工作表里的數(shù)據(jù)結(jié)構(gòu)都不一樣， 如下圖所示。在這種 情況下 ，Kutools for Excel 的匯總匯總功能可以快速合并這些工作表。安裝 Kutools for Excel 后，請(qǐng)按照下面步驟操作：1. 點(diǎn)擊企業(yè)企業(yè) 匯總匯總，如圖：2. 在匯總工作表向?qū)Ю?，選擇復(fù)制多個(gè)工作簿中的數(shù)據(jù)到一個(gè)工作表中復(fù)制多個(gè)工作簿中的數(shù)據(jù)到一個(gè)工作表中選項(xiàng)，如圖：3. 點(diǎn)擊下一步下一步按鈕。在向?qū)У诙嚼锪谐隽怂写蜷_的工作簿和工作表。如果想要添加其他工作簿或者文件夾，你可以點(diǎn)擊添加添加按鈕插入需要合并的文件。然后指定需要合并的工作表，點(diǎn)擊按鈕選擇需要合并的區(qū)域。（

6、默認(rèn)情況下，各個(gè)工作表的使用區(qū)域已經(jīng)被選中）如圖：4. 指定工作表和區(qū)域后，繼續(xù)點(diǎn)擊下一步下一步按鈕。在向?qū)У谌?，根?jù)需要做如下設(shè)置，見下圖：5. 設(shè)置完畢后，點(diǎn)擊完成完成按鈕，開始合并工作表。會(huì)有對(duì)話框彈出詢問你是否想要保存當(dāng)前的合并方案，如圖：如果需要保存當(dāng)前方案，請(qǐng)點(diǎn)擊是是，并輸入方案名稱（見下圖）。以后你想要再次使用此方案時(shí)，只需要在第二步點(diǎn)擊方案方案按鈕，選擇該方案名稱。如果不想保存當(dāng)前方案，請(qǐng)點(diǎn)擊否否.這時(shí)所有工作簿里選中的工作表都合并到了新工作簿 的工作表中 。每個(gè)工作表的信息都添加到對(duì)應(yīng)數(shù)據(jù)的前面。如果需要進(jìn)一步了解匯總匯總功能，請(qǐng)點(diǎn)擊 CombineCombine mult

7、iplemultiple worksheetsworksheets fromfromworkbooksworkbooks intointo oneone worksheetworksheet免費(fèi)下載免費(fèi)下載 KutoolsKutools forfor ExcelExcel NowNowIs Is YourYour ProblemProblem Solved?Solved?Yes,Yes, I I wantwant toto bebe moremore efficiencyefficiency andand savesave timetime whenwhen usingusing ExcelE

8、xcel No,No, thetheproblemproblem persistspersists andand I I needneed furtherfurther supportsupportRecommendedRecommended ProductivityProductivity ToolsToolsThe following tools will greatly save your time and effort, which one do you prefer?OfficeOffice TabTab: UsingUsing handyhandy tabstabs inin yo

9、uryour OfficeOffice, as the way of Chrome, Firefox and NewInternet Explorer.KutoolsKutools forfor ExcelExcel: 120 powerful new functions for Excel, IncreaseIncrease youryour productivityproductivity inin 5 5minutes.minutes. SaveSave twotwo hourshours everyevery day!day!ClassicClassic MenuMenu forfor

10、 OfficeOffice: BringBring backback familiarfamiliar menusmenus toto OfficeOffice 2007, 2010, 2013 and 365,as if it were Office 2000 and 2003.KutoolsKutools ForFor ExcelExcelAmazing! Increase your productivity in 5 minutes. Dont need any special skills,save two hours every day!More than 120 powerful advanced functions which designed for Excel:Merge Cell/Rows/Columns without Losing Data.Combine and Consolidate Multiple Sheets and Workbooks.Compare Ranges, Copy Multiple Ranges, Convert Text to Date, Unit