Excel中需要把多个窗口的工作簿进行合并具体该如何合并多个工作簿窗口呢?接下来是学习啦小编为大家带来的excel2007多个工作簿窗口合并的教程，供大家参考。

　　excel2007多个工作簿窗口合并的教程

　　合并多个工作簿窗口步骤1：将需要合并的excel工作簿文件放置在一个文件夹中。

　　合并多个工作簿窗口步骤2：每个文件夹中的工作簿都输入了简单的内容。

学习啦在线学习网 　　合并多个工作簿窗口步骤3：在该文件夹中，新建立一个新的excel工作簿文件。重命名为8.

　　合并多个工作簿窗口步骤4：打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。

　　合并多个工作簿窗口步骤5：在弹出的代码编辑窗口中，输入代码。注意：通过快捷键Alt+F11打开的窗口如下没有直接复制代码的面板，需要点击左上方的工程-VBA project模块，双击sheet1，即可打开代码窗口。而步骤3中的第二种方法学习啦在线学习网可以直接打开代码输入窗口。

学习啦在线学习网 　　合并多个工作簿窗口步骤6：在代码窗口中，黏贴下列代码：

　　Sub CombineFiles()

学习啦在线学习网 　　Dimpath As String

学习啦在线学习网 　　DimFileName As String

学习啦在线学习网 　　DimLastCell As Range

　　DimWkb As Workbook

　　DimWS As Worksheet

学习啦在线学习网 　　DimThisWB As String

学习啦在线学习网 　　Dim MyDir AsString

　　MyDir =ThisWorkbook.path & "\"

　　'ChDriveLeft(MyDir, 1) 'find all the excel files

　　'ChDir MyDir

　　'Match =Dir$("")

　　ThisWB =ThisWorkbook.Name

　　Application.EnableEvents = False

　　Application.ScreenUpdating = False

学习啦在线学习网 　　path =MyDir

　　FileName =Dir(path & "\*.xls", vbNormal)

学习啦在线学习网 　　Do UntilFileName = ""

　　If FileName <> ThisWB Then

学习啦在线学习网 　　Set Wkb = Workbooks.Open(FileName:=path & "\"& FileName)

学习啦在线学习网 　　For Each WS In Wkb.Worksheets

学习啦在线学习网 　　Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)

　　If LastCell.Value = "" And LastCell.Address = Range("$A class="main">