excel表格如何將多個(gè)工作簿窗口合并

excel表格如何將多個(gè)工作簿窗口合并

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

excel表格將多個(gè)工作簿窗口合并的方法

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

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

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

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

合并多個(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$1").AddressThen

Else

WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

End If

Next WS

Wkb.Close False

End If

FileName = Dir()

Loop

Application.EnableEvents = True

Application.ScreenUpdating = True

Set Wkb =Nothing

Set LastCell= Nothing

End Sub

猜你感興趣：

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

2.如何合并單個(gè)excel表中的多個(gè)工作表

3.excel多個(gè)表格合并成一個(gè)工作表的方法

4.excel怎么合并多個(gè)工作表

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。