Excel中需要把多個(gè)窗口的工作簿進(jìn)行合并具體該如何合并多個(gè)工作簿窗口呢?接下來是學(xué)習(xí)啦小編為大家?guī)淼膃xcel2007多個(gè)工作簿窗口合并的教程，供大家參考。

　　excel2007多個(gè)工作簿窗口合并的教程

　　合并多個(gè)工作簿窗口步驟1：將需要合并的excel工作簿文件放置在一個(gè)文件夾中。

　　合并多個(gè)工作簿窗口步驟2：每個(gè)文件夾中的工作簿都輸入了簡單的內(nèi)容。

　　合并多個(gè)工作簿窗口步驟3：在該文件夾中，新建立一個(gè)新的excel工作簿文件。重命名為8.

　　合并多個(gè)工作簿窗口步驟4：打開新建立的excel工作簿文件8.按Alt+F11或者將鼠標(biāo)移動到下方工作表名稱sheet1上右鍵，選擇查看代碼。

　　合并多個(gè)工作簿窗口步驟5：在彈出的代碼編輯窗口中，輸入代碼。注意：通過快捷鍵Alt+F11打開的窗口如下沒有直接復(fù)制代碼的面板，需要點(diǎn)擊左上方的工程-VBA project模塊，雙擊sheet1，即可打開代碼窗口。而步驟3中的第二種方法可以直接打開代碼輸入窗口。

　　合并多個(gè)工作簿窗口步驟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">