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

PAGE PAGE # excel表格如何将多个工作簿窗口合并 Excel中需要把多个窗口的工作簿进行合并具体该如何合并多个工作簿窗口呢？接下来是为大家带来的excel将多个工作簿窗口合并的教程，欢迎大家来到学习。 excel表格将多个工作簿窗口合并的方法合并多个工作簿窗口步骤1：将需要合并的excel工作簿文件放置在一个文件夹中。 合并多个工作簿窗口步骤2:每个文件夹中的工作簿都输入了简单的内容。 合并多个工作簿窗口步骤3:在该文件夹中，新建立一个新的 excel工作簿文件。重命名为8. 合并多个工作簿窗口步骤4：打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作表名称sheetl上右键，选择查看代码。 合并多个工作簿窗口步骤5:在弹出的代码编辑窗口中，输入代码。注意：通过快捷键Alt+F11打开的窗口如下没有直接复制代码的面板，需要点击左上方的工程-VBAproject模块，双击sheetl，即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口。 合并多个工作簿窗口步骤6:在代码窗口中，黏贴下列代码： SubCombineFiles() DimpathAsString DimFileNameAsString DimLastCellAsRange DimWkbAsWorkbook DimWSAsWorksheet DimThisWBAsString DimMyDirAsString MyDir二ThisWorkbook.pathamp;quot;\quot; #39;ChDriveLeft(MyDir,1)#39;findalltheexcelfiles #39;ChDirMyDir #39;Match=Dir$(quot;quot;) ThisWB二ThisWorkbook.Name Application.EnableEvents=False Application.ScreenUpdating=False path=MyDir FileName=Dir(pathamp;quot;\*.xlsquot;, vbNormal) DoUntilFileName=quot;quot; IfFileNameIt;gt;ThisWBThen SetWkb=Workbooks.Open(FileName:二pathamp; quot;\quot;amp;FileName) ForEachWSInWkb.Worksheets SetLastCell=WS.Cells.SpecialCells(xlCellTypeLastCell) IfLastCell.Value=quot;quot;AndLastCell.Address= Range(quot;$A$1quot;).AddressThen Else WS.Copy After:二ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) EndIf NextWS Wkb.CloseFalse EndIf FileName=Dir() Loop Application.EnableEvents=True Application.ScreenUpdating=True SetWkb=Nothing SetLastCell=Nothing EndSub 合并多个工作簿窗口步骤7:点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿8.可以看到下方已经多了很多新的工作表；;此时，我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。