excel表格如何将多个工作簿窗口合并.docx

excel表格如何将多个工作簿窗口合并excel表格将多个工作簿窗口合并的方法合并多个工作簿窗口步骤1：将需要合并的excel工作簿文件放置在一个文件夹中。合并多个工作簿窗口步骤2：每个文件夹中的工作簿都输入了简单的内容。合并多个工作簿窗口步骤3：在该文件夹中，新建立一个新的excel工作簿文件。重命名为8.合并多个工作簿窗口步骤4：打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。合并多个工作簿窗口步骤5：在弹出的代码编辑窗口中，输入代码。注意：通过快捷键Alt+F11打开的窗口如下没有直接复制代码的面板，需要点击左上方的工程-VBAproject模块，双击sheet1，即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口。合并多个工作簿窗口步骤6：在代码窗口中，黏贴下列代码：SubCombineFiles()DimpathAsStringDimFileNameAsStringDimLastCellAsRangeDimWkbAsWorkbookDimWSAsWorksheetDimThisWBAsStringDimMyDirAsStringMyDir=ThisWorkbook.path&"\"'ChDriveLeft(MyDir,1)'findalltheexcelfiles'ChDirMyDir'Match=Dir$("")ThisWB=ThisWorkbook.NameApplication.EnableEvents=FalseApplication.ScreenUpdating=Falsepath=MyDirFileName=Dir(path&"\*.xls",vbNormal)DoUntilFileName=""IfFileNameThisWBThenSetWkb=Workbooks.Open(FileName:=path&"\"&FileName)ForEachWSInWkb.WorksheetsSetLastCell=WS.Cells.SpecialCells(xlCellTypeLastCell)IfLastCell.Value=""AndLastCell.Address=Range("$A$1").AddressThenElseWS.CopyAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)EndIfNextWSWkb.CloseFalseEndIfFileName=Dir()LoopApplication.EnableEvents=TrueApplication.ScreenUpdating=TrueSetWkb=NothingSetLastCell=NothingEndSub合并多个工作簿窗口步骤7：点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿8.可以看到下方已经多了很多新的工作表——此时，我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。猜你感兴趣：1.excel2007多个工作簿窗口合并的教程2.如何合并单个excel表中的多个工作表3.excel多个表格合并成一个工作表的方法4.excel怎么合并多个工作表