excel如何快速把多个工作表合并到一个excel表.docx

《excel如何快速把多个工作表合并到一个excel表.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、excel如何快速把多个工作表合并到一个excel表有这么一种情况，就是我们有很多张excel，而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面，这样可以方便我们分析和统计，那么excel如何快速把多个工作表合并到一个excel表？下面为大豕介绍这种方法，希望能帮助到大家。工具/原料Excel操作步骤：1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。姓名C名称型圍S数堀表J

2、ilsmXA日期多个工作表有格式一样的数据5/1244月14日步土G1164484954月18口并玉G1205281364月18日

3、J陈玉G907pSOS7S月:LS）日陆玉一六4：曲-^14292?95就络5/125/12首页”和合并汇总2、在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为表”5/12©,、71・百度经验*台将个工作表・合并工咋表文件⑺漏辑Q

4、入VBA代码编辑和调试界面。由MicrosoftVisualBasic-台并工｛乍丢工真xsm-[^heet2（代里5/125/12文件旧輪

5、5h盹t2(f摒文呻⑥稲⑹袒冒凹L^Affl1格式回谓试［工建-VBAPreject国宙

6、口

7、(U)£(Cl*rk"e1(C4ntzt.幻(合并工作畐Escel财曾国魅lTBA?roject由劇VBAfr*j*etE騒VBATiroSeelT-职Uj^^suftiie'逼]恥血Cg#£总養ThisWorkli>ck王百宝箱卩^111«：宅匚OIl2-Sh«tU盲页)5/125/12BAOJra^(Q)湄话直I(口“51(Cvntxtjd(合Eicel角MicrosoftVisualE討匚-合拌工脂表工^xh

8、in-［橈块I（代码）］鶴文件tEJ歸辑旧楼图M:團魏R甘#-二抽工琨•VBAProject—=1P鬥I—•I—I—J二題rBAPreject黯lTBATreject騒VBATrejcet白Microzoft5/125/12Thi訓城応血-£]Sh砒tz5/125/125、将下述代码粘贴到模块空白处:复制代码代码如下：SubCombineSheetsCells()DimwsNewWorksheetAsWorksheetDimcelAsRangeDimDataSource,RowTitle,ColumnTit

9、le,SourceDataRows,SourceDataColumnsAsVari5/12antDimTitleRow,TitleColumnAsRangeDimNumAsIntegerDimDataRowsAsLongDataRows=1DimTitleArr()DimChoiceDimMyName$,MyFileName$,ActiveSheetName$,AddressAll$,AddressRow$,AddressColumn$,FileDir$,DataSheet$,myDelimiter$Dim

10、n,in=1i=1Application.DisplayAlerts=FalseWorksheets(”合并汇总表").DeleteSetwsNewWorksheet=Worksheets.Add(,after:=Worksheets(Worksheets.Count))wsNewWorksheet.Name="合并汇总表”MyFileName=Application.GetOpenFilename("Excel工作薄(*.xls*),*.xls*")IfMyFileName="False"ThenMsgB

11、ox"没有选择文件！请重新选择一个被合并文件！",vblnformation,”取消”ElseWorkbooks.OpenFilename:=MyFileNameNum=ActiveWorkbook.Sheets.CountMyName=ActiveWorkbook.NameSetDataSource=Application.lnputBox(prompt:="请选择要合并的数据区域：",Type:=8)Addr