多个工作簿合并成一个工作簿的公式

31、打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。2、在弹出的代码编辑窗口中，输入代码。注意：通过快捷键Alt+F11打开的窗口如下没有直接复制代码的面板，需要点击左上方的工程-VBAproject模块，双击sheet1，即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口3、点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿8.可以看到下方已经多了很多新的工作表——此时，我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。如何将多个工作表的数据汇总到一个工作表1、一个工作簿里面有多个工作表，各工作表之间的字段是一致的，但数据不一致。由于工作需要，需要将各个工作表的数据汇总到一个表格里面做汇总分析，数据少、工作表数目不多的时候，CTRL+C后CTRL+V逐个复制粘贴是可以的，但数据量大、工作表数据多的时候，则可以用宏进行快速处理；2、从上图中，后面的5个工作表，里面是源数据。“合并报表”这个表，则是要将后面5个表格的数据汇总的表格，其内容为空。3、方法：使用宏快速汇总（1）录制宏首先，点击文件菜单的“工具”菜单，选择“宏”—“宏”出现以下的宏界面，在“宏名”中按照自己喜好录入一个名称，这里录入“合并工作表”的名称，“位置”是指该宏可以在那个EXCEL工作簿中使用，这里选择“当前工作簿”。然后点击“创建”。出现以下的宏录入界面在“Sub 合并工作表()”下面，将以下的字符复制粘贴过去Dim m As Integer Dim n As Integer Dim o As Integer For m = 2 To 6    n = Sheets(m).[a65536].End(xlUp).Row    o = Sheets(1).[a65536].End(xlUp).Row    Sheets(m).Select    Range(a1, z & n).Select    Range(a & n).Activate   Selection.Copy    Sheets(1).Select    Range(a & o + 1).Select    ActiveSheet.Paste Next 特别注意这一段字符“For m = 2 To 6”，由于要汇总的数据的工作表有5个，加上“合并报表”这个工作表本身，一共是6个工作表，因此“For m = 2 To 6”中选择输入6，如果后面要汇总的数据工作表有3个，则是录入4，如果有12个，则是录入13，依次类推。然后，点击“文件”菜单，选择“关闭并返回到Micrlsoft Excel”。宏至此录入完毕。（2）使用已录制好的宏“合并工作表”，进行工作表的数据汇总。首先，在“合并报表”中，点击点击文件菜单的“工具”菜单，选择“宏”—“宏”出现宏界面，点击选择“合并工作表”，然后点击“执行”。就能达到汇总的效果。要注意，为避免出错，最好检查以下汇总后的报表中有数据的行数，是否等于后面各个报表有数据的行数总和。另外要注意，已经使用宏的报表，在保存时，会出现以下提示，点击确定即可。Sub合作工作表()DimmAsIntegerDimnAsIntegerDimoAsIntegerForm=2To10n=Sheets(m).[a65536].End(xlUp).Rowo=Sheets(1).[a65536].End(xlUp).RowSheets(m).SelectRange(a1,z&n).SelectRange(a&n).ActivateSelection.CopySheets(1).SelectRange(a&o+1).SelectActiveSheet.PasteNextEndSubSubCombineWorkbooks()DimFilesToOpenDimxAsIntegerOnErrorGoToErrHandlerApplication.ScreenUpdating=FalseFilesToOpen=Application.GetOpenFilename(FileFilter:=MicroSoftExcel文件(*.xls),*.xls,MultiSelect:=True,Title:=要合并的文件)IfTypeName(FilesToOpen)=BooleanthenMsgBox没有选中文件GotoExitHandlerendifx=1Whilex=UBound(filestoopen)Workbooks.OpenfileName:=filestoopen(x)Sheets().MoveAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)x=x+1WendExitHandler:Application.ScreenUpdating=TrueExitSubErrHandler:MsgBoxErr.DescriptionResumeExitHandlerEndSub、一个工作簿里面有多个工作表，各工作表之间的字段是一致的，但数据不一致。由于工作需要，需要将各个工作表的数据汇总到一个表格里面做汇总31、打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。2、在弹出的代码编辑窗口中，输入代码。注意：通过快捷键Alt+F11打开的窗口如下没有直接复制代码的面板，需要点击左上方的工程-VBAproject模块，双击sheet1，即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口3、点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿8.可以看到下方已经多了很多新的工作表——此时，我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。如何将多个工作表的数据汇总到一个工作表1、一个工作簿里面有多个工作表，各工作表之间的字段是一致的，但数据不一致。由于工作需要，需要将各个工作表的数据汇总到一个表格里面做汇总分析，数据少、工作表数目不多的时候，CTRL+C后CTRL+V逐个复制粘贴是可以的，但数据量大、工作表数据多的时候，则可以用宏进行快速处理；2、从上图中，后面的5个工作表，里面是源数据。“合并报表”这个表，则是要将后面5个表格的数据汇总的表格，其内容为空。3、方法：使用宏快速汇总（1）录制宏首先，点击文件菜单的“工具”菜单，选择“宏”—“宏”出现以下的宏界面，在“宏名”中按照自己喜好录入一个名称，这里录入“合并工作表”的名称，“位置”是指该宏可以在那个EXCEL工作簿中使用，这里选择“当前工作簿”。然后点击“创建”。出现以下的宏录入界面在“Sub 合并工作表()”下面，将以下的字符复制粘贴过去Dim m As Integer Dim n As Integer Dim o As Integer For m = 2 To 6    n = Sheets(m).[a65536].End(xlUp).Row    o = Sheets(1).[a65536].End(xlUp).Row    Sheets(m).Select    Range(a1, z & n).Select    Range(a & n).Activate   Selection.Copy    Sheets(1).Select    Range(a & o + 1).Select    ActiveSheet.Paste Next 特别注意这一段字符“For m = 2 To 6”，由于要汇总的数据的工作表有5个，加上“合并报表”这个工作表本身，一共是6个工作表，因此“For m = 2 To 6”中选择输入6，如果后面要汇总的数据工作表有3个，则是录入4，如果有12个，则是录入13，依次类推。然后，点击“文件”菜单，选择“关闭并返回到Micrlsoft Excel”。宏至此录入完毕。（2）使用已录制好的宏“合并工作表”，进行工作表的数据汇总。首先，在“合并报表”中，点击点击文件菜单的“工具”菜单，选择“宏”—“宏”出现宏界面，点击选择“合并工作表”，然后点击“执行”。就能达到汇总的效果。要注意，为避免出错，最好检查以下汇总后的报表中有数据的行数，是否等于后面各个报表有数据的行数总和。另外要注意，已经使用宏的报表，在保存时，会出现以下提示，点击确定即可。Sub合作工作表()DimmAsIntegerDimnAsIntegerDimoAsIntegerForm=2To10n=Sheets(m).[a65536].End(xlUp).Rowo=Sheets(1).[a65536].End(xlUp).RowSheets(m).SelectRange(a1,z&n).SelectRange(a&n).ActivateSelection.CopySheets(1).SelectRange(a&o+1).SelectActiveSheet.PasteNextEndSubSubCombineWorkbooks()DimFilesToOpenDimxAsIntegerOnErrorGoToErrHandlerApplication.ScreenUpdating=FalseFilesToOpen=Application.GetOpenFilename(FileFilter:=MicroSoftExcel文件(*.xls),*.xls,MultiSelect:=True,Title:=要合并的文件)IfTypeName(FilesToOpen)=BooleanthenMsgBox没有选中文件GotoExitHandlerendifx=1Whilex=UBound(filestoopen)Workbooks.OpenfileName:=filestoopen(x)Sheets().MoveAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)x=x+1WendExitHandler:Application.ScreenUpdating=TrueExitSubErrHandler:MsgBoxErr.DescriptionResumeExitHandlerEndSub、一个工作簿里面有多个工作表，各工作表之间的字段是一致的，但数据不一致。由于工作需要，需要将各个工作表的数据汇总到一个表格里面做汇总