..
excel如何快速把多个工作表合并到一个excel表
有这么一种情况，就是我们有很多张excel，而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面，这样可以方便我们分析和统计，那么excel如何快速把多个工作表合并到一个excel表？下面为大家介绍这种方法，希望能帮助到大家。 工具/原料 Excel 操作步骤：
1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。
2、在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。
.下载可编辑.
..
3、按Alt+F11进入VBA代码编辑和调试界面。
4、根据下图提示，插入一个模块。
.下载可编辑.
..
5、将下述代码粘贴到模块空白处：
复制代码 代码如下:
Sub CombineSheetsCells() Dim wsNewWorksheet As Worksheet Dim cel As Range Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Var.下载可编辑.
..
iant 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 = \MsgBox \没有选择文件！请重新选择一个被合并文件！\取消\Else Workbooks.Open Filename:=MyFileName Num = ActiveWorkbook.Sheets.Count MyName = ActiveWorkbook.Name Set DataSource = Application.InputBox(prompt:=\请选择要合并的数据区域：\=8) .下载可编辑.
..
AddressAll = DataSource.Address 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(\合并汇总表\me ActiveWorkbook.Sheets(\合并汇总表\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 .下载可编辑.
excel如何快速把多个工作表合并到一个excel表
