……………………………………………………………最新资料推荐…………………………………………………
excel如何快速把多个工作表合并到一个excel表
有这么一种情况，就是我们有很多张excel，而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面，这样可以方便我们分析和统计，那么excel如何快速把多个工作表合并到一个excel表？下面为大家介绍这种方法，希望能帮助到大家。 工具/原料 Excel 操作步骤：
1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。
2、在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。
1
……………………………………………………………最新资料推荐…………………………………………………
3、按Alt+F11进入VBA代码编辑和调试界面。
4、根据下图提示，插入一个模块。
2
……………………………………………………………最新资料推荐…………………………………………………
5、将下述代码粘贴到模块空白处：
复制代码 代码如下: Sub CombineSheetsCells() Dim wsNewWorksheet As Worksheet Dim cel As Range Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Vari 3
……………………………………………………………最新资料推荐…………………………………………………
ant Dim TitleRow, TitleColumn As Range Dim Num As Integer Dim DataRows As Long DataRows = 1 Dim TitleArr() Dim Choice Dim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$ Dim n, i n = 1 i = 1 Application.DisplayAlerts = False Worksheets(\合并汇总表\Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count)) wsNewWorksheet.Name = \合并汇总表\MyFileName = Application.GetOpenFilename(\工作薄 (*.xls*),*.xls*\If MyFileName = \Then MsgBox \没有选择文件！请重新选择一个被合并文件！\vbInformation, \取消\Else Workbooks.Open Filename:=MyFileName Num = ActiveWorkbook.Sheets.Count MyName = ActiveWorkbook.Name Set DataSource = Application.InputBox(prompt:=\请选择要合并的数据区域：\Type:=8) AddressAll = DataSource.Address
4
……………………………………………………………最新资料推荐…………………………………………………
ActiveWorkbook.ActiveSheet.Range(AddressAll).Select SourceDataRows = Selection.Rows.Count SourceDataColumns = Selection.Columns.Count Application.ScreenUpdating = False Application.EnableEvents = False For i = 1 To Num ActiveWorkbook.Sheets(i).Activate ActiveWorkbook.Sheets(i).Range(AddressAll).Select Selection.Copy ActiveSheetName = ActiveWorkbook.ActiveSheet.Name Workbooks(ThisWorkbook.Name).Activate ActiveWorkbook.Sheets(\合并汇总表\ActiveWorkbook.Sheets(\合并汇总表\& DataRows).Value = ActiveSheetName ActiveWorkbook.Sheets(\合并汇总表\2), Cells(DataRows, 2)).Select Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False DataRows = DataRows + SourceDataRows Workbooks(MyName).Activate Next i
5
excel如何快速把多个工作表合并到一个excel表精编版
