合并多個工作表和多個工作簿

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

2、ications 窗口。窗口。2. 2. 點擊插入點擊插入 模塊，再將下面的代碼粘貼到模塊窗口里。模塊，再將下面的代碼粘貼到模塊窗口里。VBA:VBA:將將當前工作簿里各個工作表里的數(shù)據(jù)合并到一個新工作表里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 鍵運行代碼。運行后，當前工作簿里的數(shù)據(jù)都被并合并到一個名為Combine 的新 工作表中 ， 并列在所有工作表前面。注意：注意：(1

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

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

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

7、iplemultiple worksheetsworksheets fromfromworkbooksworkbooks intointo oneone worksheetworksheet免費下載免費下載 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