原发布者:anjie327
excel如何快速把多个工作表合并到一个excel表有这么一种情况,就是我们有很多张excel,而且excel表里面的公式基本一样,我们就想快速的把这些excel合并在一起,意思在合并在一个excel页面,这样可以方便我们分析和统计,那么excel如何快速把多个工作表合并到一个excel表?下面为大家介绍这种方法,希望能帮助到大家。工具/原料Excel操作步骤:1、原始数据所在工作簿包含多个格式相同的工作表,只不过每个工作表内容不同,比如说不同人名的工作表数据或者不同部门填写的数据。Array2、在原始数据同目录下新建一个工作簿,建立两个工作表,名称分别为“首页”和“合并汇总表”。ArrayArray3、按Alt+F11进入VBA代码编辑和调试界面。Array4、根据下图提示,插入一个模块。ArrayArray5、将下述代码粘贴到模块空白处:复制代码代码如下:SubCombineSheetsCells()ArrayDimwsNewWorksheetAsWorksheetArrayDimcelAsRangeArrayDimDataSource,RowTitle,ColumnTitle,SourceDataRows,SourceDataColumnsAsVariantArrayDimTitleRow,TitleColumnAsRangeArrayDimNumAsIntegerArrayDimDataRowsAsLongArrayDataRows=1ArrayDimTitleArr()ArrayDimChoiceArrayDimMyName$,MyFileName$,ActiveSheetName$,AddressAll$,AddressRow$,AddressColumn$,FileDir$,DataSheet$,myDelimiter$ArrayDimn,iArrayn=1Arrayi=1ArrayApplication.DisplayAlerts=FalseArrayWorksheets("合