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

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

2、160;模块，再将下面的代码粘贴到模块窗口里。VBA:将当前工作簿里各个工作表里的数据合并到一个新工作表里Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") For J =

3、 2 To Sheets.Count Sheets(J).Activate Range("A1").Select Selection.CurrentRegion.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) Next End Sub3. 按F5 键运行代码。运行后，当前工作簿里的数据都被并合并到一个名为 Combine的

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

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

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

7、s from workbooks into one worksheet免费下载 Kutools for Excel Now Is Your Problem Solved?Yes, I want to be more efficiency and save time when using Excel No, the problem persists and I need further supportRecommended Productivity ToolsThe following tools will greatly save your time and effort,

8、 which one do you prefer?Office Tab: Using handy tabs in your Office, as the way of Chrome, Firefox and New Internet Explorer.Kutools for Excel: 120 powerful new functions for Excel, Increase your productivity in 5 minutes. Save two hours every day!Classic Menu for Office: Bring back

9、familiar menus to Office 2007, 2010, 2013 and 365, as if it were Office 2000 and 2003.Kutools For Excel Amazing! Increase your productivity in 5 minutes. Don't 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 and Currency Conversion.· Count by C