多個excel工作簿合並

這是一個很常見的問題，日常工作中，往往需要從來自各個地區或者部門的資料進行合並然後統計分析。

這里我分享下如何使用Excel2016直接合並多張工作簿，！

將需要合並的工作簿整理到一個工作目錄中

菜單選擇資料，獲取資料，子文件，從資料夾，並在面板中選擇目錄地址，確定

選擇合並和加載

在合並面板中，記得選擇工作表

最後點擊，加載即可。

在合並後的工作表任意區域，右鍵，在菜單中選擇刷新

WWw‖.BaZHiSHI.COM

Q2：如何把多個Excel工作簿合並成一個新的工作簿

方法/步驟
將需要合並的excel工作簿文件放置在一個資料夾中。
每個資料夾中的工作簿都輸入了簡單的內容。
在該資料夾中，新建立一個新的excel工作簿文件。重命名為8.
打開新建立的excel工作簿文件8.按Alt+F11或者將滑鼠移動到下方工作表名稱sheet1上右鍵，選擇查看代碼。
在彈出的代碼編輯窗口中，輸入代碼。注意：透過快捷鍵Alt+F11打開的窗口如下沒有直接復制代碼的面板，需要點擊左上方的工程-VBA project模塊，雙擊sheet1，即可打開代碼窗口。而步驟3中的第二種方法可以直接打開代碼輸入窗口。
在代碼窗口中，黏貼下列代碼：
Sub CombineFiles()
DimpathAs String
DimFileNameAs String
DimLastCellAs Range
DimWkbAs Workbook
DimWSAs Worksheet
DimThisWBAs 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.Valuehttps://wstdw.com/aldyjtapi/= "" 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
6、點擊菜單欄執行-執行子過程-用戶窗體。關閉代碼輸入窗口。打開excel工作簿8.可以看到下方已經多了很多新的工作表——此時，我們已經將之前的工作簿中的工作表都復制到了這一新建的工作簿中。

W@ww.bAzHisHI.com

Q3：那個把多個excel工作表怎麼合並成一個工作簿，我下了一個你說的excel工

樓主是說要收集多個工作簿中的工作表，合並成一個新的工作簿是嗎？那可以用下面這個試試
鏈接：http://pan.baidu.com/s/1dFhD8yP 密碼：stnv

wwW.bAZ‖hIsHi.com

單擊共享工作薄

勾上允許多用戶同時編輯就好了

高級里面的選項根據自己要求選擇就行

只需右擊工作表標簽，在右鍵菜單中選擇"移動或復制"

然後在"移動或復制工作表"面板中，選擇目標工作簿即可。

這就是Excel中的一個最基礎的操作。

在日常工作中，更為常見的是，如何將多個工作簿中的多個工作表匯總到一張工作表中。

這里，我就再分享幾個匯總多張工作表的方法：

多重透視表匯總多張工作表

使用SQL匯總多張工作表

合並計算匯總多張工作表

公式匯總多張工作表

這里僅作拋磚引玉，詳細技巧可以關注我哦！

Q6：怎麼將多個Excel工作簿合並成一個新的工作簿

將多個Excel工作簿合並成一個新的工作簿的步驟如下：

1、

2、

3、

4、

5、

6、

Q7：excel如何將一個工作簿中的多個工作表合並到一張工作表上

打開你的工作簿新建一個工作表在這個工作表的標簽上右鍵查看代碼你把下面的代碼復制到里邊去，然後 上面有個執行執行子程式就可以了，代碼如下，如果 出現問題你可以嘗試工具宏宏安全性里把那個降低為中或者低再試試
Sub 合並當前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1、Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "當前工作簿下的全部工作表已經合並完畢！", vbInformation, "提示"
End Sub