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

1、通过通过 VBAVBA 将当前工作簿里的多个工作表合并到一个工作表中将当前工作簿里的多个工作表合并到一个工作表中假设你有三个工作表（分别命名为一年级，二年级和三年级），各个工作表里的数据格式和布局一样。 现在你需要将这三个工作表合并到一个工作表里。 见下图：下面的 VBA 代码能帮你把当前工作簿里各个工作表里的数据合并到一个新工作表里。同时需要注意的是，所有工作表里的数据结构，列标题，以及各列排列的顺序都必须一样。操作如下：1. 按住 Alt + F11 键打开 MicrosoftMicrosoft VisualVisual BasicBasic forfor ApplicationsAppl

2、ications 窗口。窗口。2. 2. 点击插入点击插入 模块，再将下面的代码粘贴到模块窗口里。模块，再将下面的代码粘贴到模块窗口里。VBA:VBA:将将当前工作簿里各个工作表里的数据合并到一个新工作表里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 键运行代码。运行后，当前工作簿里的数据都被并合并到一个名为Combine 的新 工作表中 ， 并列在所有工作表前面。注意：注意：(1

4、) 数据必须从单元格 A1 开始，否则代码无效。(2) 所有的工作表数据必须布局一致。(3) 此代码只能合并当前工作簿里的工作表，如果想要合并多个工作簿里的工作表，此代码无效。通过通过 KutoolsKutools ForFor ExcelExcel 将多个工作表或工作簿合并到一个工作表里将多个工作表或工作簿合并到一个工作表里上面介绍的 VBA 代码还是有些限制的， 但 Kutools for Excel 的汇总汇总功能可以帮你快速合并一个或多个工作簿里的工作表。KutoolsKutools forfor ExcelExcel：超过 120 个便捷工具，30 天无限制免费试用。 更多更多免费免

5、费下载下载假设你有两个工作簿需要合并， 每张工作表里的数据结构都不一样， 如下图所示。在这种 情况下 ，Kutools for Excel 的汇总汇总功能可以快速合并这些工作表。安装 Kutools for Excel 后，请按照下面步骤操作：1. 点击企业企业 汇总汇总，如图：2. 在汇总工作表向导里，选择复制多个工作簿中的数据到一个工作表中复制多个工作簿中的数据到一个工作表中选项，如图：3. 点击下一步下一步按钮。在向导第二步里列出了所有打开的工作簿和工作表。如果想要添加其他工作簿或者文件夹，你可以点击添加添加按钮插入需要合并的文件。然后指定需要合并的工作表，点击按钮选择需要合并的区域。（

6、默认情况下，各个工作表的使用区域已经被选中）如图：4. 指定工作表和区域后，继续点击下一步下一步按钮。在向导第三步，根据需要做如下设置，见下图：5. 设置完毕后，点击完成完成按钮，开始合并工作表。会有对话框弹出询问你是否想要保存当前的合并方案，如图：如果需要保存当前方案，请点击是是，并输入方案名称（见下图）。以后你想要再次使用此方案时，只需要在第二步点击方案方案按钮，选择该方案名称。如果不想保存当前方案，请点击否否.这时所有工作簿里选中的工作表都合并到了新工作簿 的工作表中 。每个工作表的信息都添加到对应数据的前面。如果需要进一步了解汇总汇总功能，请点击 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