EXCEL中如何将多个工作表的内容合并到一个表格中

1、操作步骤：1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不2、在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为和 “合并汇总表”。首页3、按Alt+F11 进入 VBA代码编辑和调试界面。4、根据下图提示，插入一个模块。5、将下述代码粘贴到模块空白处：:Sub CombineSheetsCells()Dim wsNewWorksheet As WorksheetDim cel As RangeDim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Var iantD

2、im TitleRow, TitleColumn As RangeDim Num As IntegerDim DataRows As LongDataRows = 1Dim TitleArr()Dim ChoiceDim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, Address Column$, FileDir$, DataSheet$, myDelimiter$ Dim n, i n = 1 i = 1Application.DisplayAlerts = FalseWorksheets("

3、合并汇总表").DeleteSet wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count) wsNewWorksheet.Name = "合并汇总表"MyFileName = Application.GetOpenFilename("Excel 工作薄 (*.xls*),*.xls*")If MyFileName = "False" ThenMsgBox "没有选择文件！请重新选择一个被合并文件！", vbInformat

4、ion,"取消"ElseWorkbooks.Open Filename:=MyFileNameNum = ActiveWorkbook.Sheets.CountMyName = ActiveWorkbook.NameSet DataSource = Application.InputBox(prompt:=" 请选择要合并的数据区域：", Type:=8)AddressAll = DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAll).SelectSourceDataRows = Se

5、lection.Rows.CountSourceDataColumns = Selection.Columns.CountApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseFor i = 1 To NumActiveWorkbook.Sheets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyActiveSheetName = ActiveWorkbook.ActiveSheet.NameWorkbooks(Th

6、isWorkbook.Name).ActivateActiveWorkbook.Sheets("合并汇总表").SelectActiveWorkbook.Sheets("合并汇总表").Range("A" & DataRows).Value = ActiveSheetNameActiveWorkbook.Sheets("合并汇总表").Range(Cells(DataRows, 2), Cells(DataRows, 2).Select Selection.PasteSpecial Paste:=xlPas

7、teColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseDataRows = DataRows + SourceD

8、ataRowsWorkbooks(MyName).ActivateNext iApplication.ScreenUpdating = TrueApplication.EnableEvents = TrueEnd IfWorkbooks(MyName).CloseEnd Sub6、 在 “首页 ”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。7、点击“首页 ”工作表中插入的按钮，根据提示，浏览到原始数据工作簿。8、下一步，用鼠标选择要合并的数据范围。注意：每个工作表数据可能不一样，比如说有的是10 行数据，有的是30 行数据。在这里我们可以用鼠标选择任意工作表的一个较大范围，比如说A1:D100 ，保证比最多行数的工作表数据还多就可以，一会再删除空行。9、点击确定按钮，待代码运行完毕后，所有的数据就都合并到了“合并汇总表中。注意：1) A 列的文本说明右侧的数据来自于原始数据表的哪个工作表；2)数据之间会有一些空