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

。通过VBA将当前工作簿里的多个工作表合并到一个工作表中 假设你有三个工作表（分别命名为一年级，二年级和三年级），各个工作表里的 数据格式和布局一样。现在你需要将这三个工作表合并到一个工作表里。见下图: r Microsoft Excel - all students inf… A B C l 1 Name Gendar Class Age 2 Finn M 10 3 Jonas M 1 4 Maximi F 3 5 Noah M 6 ? ? Gradel Grade2 || Grade3 | Microsoft Excel ? all students inf... ABC [ 1 Name Gendar Class Age 2 Lara F 2 3 Nele M 3 4 Agatha M 6 5 Aurora M 9 ? Gradel , Grade2 ] Grade3 |Z] Microsoft Excel ? all students inf… A B c [ 1 Name Gendar Class Age 2 Jim M 1 3 Lucy F 2 4 Bob M 1 5 Alexia M 3 1 Nelly F 5 了 Freda M 4 3 Nocial F 7 9 Joanna F 8 Mignon M 9 = Finn Jonas M M 10 1 Maximi F 3 Noah M 6 Leonie F 9 Mia F 1 Lara F 2 Nele M 3 Agatha M 6 20 Aurora M 9 21 Betsy F 10 22 Delia F 2 23 Heather M 6 24 Inerid 匚 8 ? ? | Combined / Gradel 4 Grade2 下面的VBA代码能帮你把当前工作簿里各个工作表里的数据合并到一个新工作 表里。同时需要注意的是，所有工作表里的数据结构，列标题，以及各列排列的 顺序都必须一样。操作如下： 1.按住 Alt + Fl 1 键打开 Microsoft Visual Basic for Applications 窗口。 2?点击插入 模块，再将下面的代码粘贴到模块窗口里。 VBA:将当前工作簿里各个工作表里的数据合并到…个新工作表里 Sub Combine() Dim 3 As Integer On Error Resume Next Sheets(l).Select Worksheets?Add Sheets(l).Name = Combined Sheets(2).Activate Range(Al).EntireRow.Select Selection.Copy Destination:=Sheets(l)?Range(Al) For J = 2 To Sheets.Count Sheets(J).Activate Range(Al).Select Selection ?CurrentRegion.Select Selection.O0)? Resize(Selection.Rows?Count ? 1)?Select Selection.Copy Destination:=Sheets(l).Range(HA65536)?End(xlUp)(2) Nex t End Sub 按F5键运行代码。运行后，当前工作簿里的数据都被并合并到一个名为 Combine的新工作表中,并列在所有工作表前面。 注意: 数据必须从单元格Al开始，否则代码无效。 所有的工作表数据必须布局一致。 此代码只能合并当前工作簿里的工作表，如果想要合并多个工作簿里的工作 表，此代码无效。 。通过Kutools For Excel将多个工作表或工作簿合并到一个工作表里 上面介绍的VBA代码还是有些限制的，但Kutools for Excel的汇总功能可以帮 你快速合并一个或多个工作簿里的工作表。 Kutools for Excel：超过120个便捷工具，30天无限制免费试用。更多 免费 下载 假设你有两个工作簿需要合并，每张工作表里的数据结构都不一样，如下图所示。 在这种情况下,Kutools for Excel的汇总功能可以快速合并这些工作表。 rABC—1NameGendarClassAgI 2 r A B C — 1 Name Gendar Class Ag I 2 Jim M 1 3 Lucy F 2 4 Bob M 1 5 Alexia M 3 6 Nelly F 5 7 Freda M 4 O !? ? Gradel ? Grade2 / Graded Microsoft Excel ? all students in for... I —11 6 7 |^]