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

《合并多个工作表和多个工作簿》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、。通过VBA将当前工作簿里的多个工作表合并到一个工作表中假设你有三个工作表（分别命名为一年级，二年级和三年级），各个工作表里的数据格式和布局一样。现在你需要将这三个工作表合并到一个工作表里。见下图:rMicrosoftExcel-allstudentsinf…ABCl1NameGendarClassAge2FinnM103JonasM14MaximiF35NoahM6►►'GradelGrade2

2、

3、Grade3

4、MicrosoftExcel・allstudentsinf...ABC[1NameGendarClassA

5、ge2LaraF23NeleM34AgathaM65AuroraM9►Gradel,Grade2]Grade3

6、Z]MicrosoftExcel・allstudentsinf…ABc[1NameGendarClassAge2JimM13LucyF24BobM15AlexiaM31NellyF5了FredaM43NocialF79JoannaF8MignonM9=FinnJonasMM101MaximiF3NoahM6LeonieF9MiaF1LaraF2NeleM3AgathaM620AuroraM921BetsyF1

7、022DeliaF223HeatherM624Inerid匚8►►'

8、Combined/Gradel4Grade2下面的VBA代码能帮你把当前工作簿里各个工作表里的数据合并到一个新工作表里。同时需要注意的是，所有工作表里的数据结构，列标题，以及各列排列的顺序都必须一样。操作如下：1.按住Alt+Fl1键打开MicrosoftVisualBasicforApplications窗口。2•点击插入>>模块，再将下面的代码粘贴到模块窗口里。VBA:将当前工作簿里各个工作表里的数据合并到…个新工作表里SubCombine()D

9、im3AsIntegerOnErrorResumeNextSheets(l).SelectWorksheets・AddSheets(l).Name="Combined"Sheets(2).ActivateRange("Al").EntireRow.SelectSelection.CopyDestination:=Sheets(l)・Range("Al")ForJ=2ToSheets.CountSheets(J).ActivateRange("Al").SelectSelection・CurrentRegion.Sele

10、ctSelection.O0)・Resize(Selection.Rows・Count・1)・SelectSelection.CopyDestination:=Sheets(l).Range(HA65536")・End(xlUp)(2)NextEndSub3.按F5键运行代码。运行后，当前工作簿里的数据都被并合并到一个名为Combine的新工作表中,并列在所有工作表前面。注意:(1)数据必须从单元格Al开始，否则代码无效。(2)所有的工作表数据必须布局一致。(3)此代码只能合并当前工作簿里的工作表，如果想要合并多个工作

11、簿里的工作表，此代码无效。。通过KutoolsForExcel将多个工作表或工作簿合并到一个工作表里上面介绍的VBA代码还是有些限制的，但KutoolsforExcel的汇总功能可以帮你快速合并一个或多个工作簿里的工作表。KutoolsforExcel：超过120个便捷工具，30天无限制免费试用。更多免费下载假设你有两个工作簿需要合并，每张工作表里的数据结构都不一样，如下图所示。在这种情况下,KutoolsforExcel的汇总功能可以快速合并这些工作表。rABC—1NameGendarClassAgI2JimM13L

12、ucyF24BobM15AlexiaM36NellyF57FredaM4O!◄◄Gradel•Grade2/GradedMicrosoftExcel・allstudentsinfor...I—1167

13、^]MicrosoftExcel-Book1ABCDDescriptionQIQ3Q2Sales110000150001800GrossMargin12001800216EBITDA—20003000360Netearnings6009001082345]/丿■CgmpgnyACompanyBCompanyC安装Kuto

14、olsforExcel后，请按照下血步骤操作:1•点击企业>>汇总，如图:工饰工工俏昌曲是殴计貼数箱分败计帝恳蕉送卞粘貼到可见区域统选日画］血鹿霊▽加密解密岳护敏销工单訣单顽工作表作^^安全2.在汇总工作表向导里，选择复制多个工作簿中的数据到一个工作表中选项，如图：3.点击下一步按钮。在向导第二步里列出了所有打开的工作簿和工作表。