如何在Excel中將多個工作簿合并為一個主工作簿？
如何在Excel中將多個工作簿合并為一個主工作簿？
當您必須將多個工作簿合并到Excel中的主工作簿時，您是否曾經被困住過？ 最可怕的是，您需要組合的工作簿包含多個工作表。 以及如何僅將多個工作簿的指定工作表合并到一個工作簿中？ 本教程演示了幾種有用的方法來幫助您逐步解決問題。
方法A： 通過移動或復制功能將多個工作簿合并為一個工作簿
方法B： 使用VBA將多個工作簿或指定的工作簿表合并為主工作簿
方法C： 輕松將多個工作簿或指定的工作簿表合并為一個工作簿
通過移動或復制功能將多個工作簿合并為一個工作簿
如果只需要合并幾個工作簿，則可以使用“移動”或“復制”命令將工作表從原始工作簿手動移動或復制到主工作簿。
1.打開工作簿，您將這些工作簿合并為主工作簿。
2.在原始工作簿中選擇要移動或復制到主工作簿的工作表。
筆記：
1）。 您可以選擇多個不相鄰的工作表，同時按住 按Ctrl 鍵并一一點擊工作表標簽。
2）。 要選擇多個相鄰的工作表，請單擊第一個工作表標簽，按住 轉移 鍵，然后單擊最后一個工作表標簽以將其全部選中。
3）。 您可以右鍵單擊任何工作表標簽，然后單擊 選擇所有工作表 從上下文菜單中選擇同時在工作簿中的所有工作表。
3.選擇所需的工作表后，右鍵單擊“工作表”選項卡，然后單擊“確定”。 移動或復制 從上下文菜單中。 看截圖：
4.然后 移動或復制 對話框彈出 預訂 下拉菜單中，選擇要移動或復制工作表的主工作簿。 選擇移動以結束 前表 框，選中 建立副本 框，最后單擊 OK 按鈕。
然后，您可以將兩個工作簿中的工作表合并為一個。 請重復上述步驟，將工作表從其他工作簿移至主工作簿。
使用VBA將多個工作簿或指定的工作簿表合并為主工作簿
如果需要將多個工作簿合并為一個，則可以應用以下VBA代碼來快速實現它。 請執行以下操作。
1.將要合并的所有工作簿放在同一目錄下。
2.啟動一個Excel文件（此工作簿將成為主工作簿）。
3。 按 其他 + F11 鍵打開 適用于應用程序的Microsoft Visual Basic 窗口。 在里面 適用于應用程序的Microsoft Visual Basic 窗口中，單擊 插頁 > 模塊，然后將以下VBA代碼復制到“模塊”窗口中。
VBA代碼1：將多個Excel工作簿合并為一個
Sub GetSheets()
Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
Copy
筆記：
1.上面的VBA代碼在合并后將保留原始工作簿的圖紙名稱。
2.如果要區分主工作簿中的哪些工作表是合并后來自何處，請應用下面的VBA代碼2。
3.如果僅要將工作簿的指定工作表合并到主工作簿中，則下面的VBA代碼3可以提供幫助。
在VBA代碼中，“C：\ Users \ DT168 \ Desktop \ KTE \”是文件夾路徑。 在VBA代碼3中，Sheet1，Sheet3”是您將合并到主工作簿的工作簿的指定工作表。您可以根據需要進行更改。
VBA代碼2：將工作簿合并為一個（每個工作表將以其原始文件名的前綴命名）：
Sub MergeWorkbooks()
Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Copy
VBA代碼3：將工作簿的指定工作表合并到主工作簿中：
Sub MergeSheets2()
Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next
xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"
xArr = Split(xStrName, ",")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Copy
4。 按 F5 鍵來運行代碼。 然后，將某個文件夾中工作簿的所有工作表或指定工作表立即合并到一個主工作簿中。
輕松將多個工作簿或指定的工作簿表合并為一個工作簿
幸運的是 結合 的工作簿實用程序 Kutools for Excel 使將多個工作簿合并為一個更加容易。 讓我們看看如何在組合多個工作簿時使該功能發揮作用。
申請前 Kutools for Excel請 首先下載并安裝.
1.創建一個新的工作簿，然后單擊 Kutools 加 > 結合。 然后會彈出一個對話框，提醒您所有組合的工作簿都應保存，并且該功能不能應用于受保護的工作簿，請單擊 OK 按鈕。
2.在 合并工作表 向導，選擇 將工作簿中的多個工作表合并到一個工作簿中 選項，然后單擊 接著 按鈕。 看截圖：
3.在 合并工作表-第2步，共3步 對話框中，單擊 地址 > 文件 or 夾 要添加Excel文件，您將合并為一個。 添加Excel文件后，點擊 完成 按鈕，然后選擇一個文件夾來保存主工作簿。 看截圖：
現在，所有工作簿都合并為一個。
與以上兩種方法相比， Kutools for Excel 具有以下優點：
1）所有工作簿和工作表都在對話框中列出； 2）對于要從合并中排除的工作表，只需取消選中它； 3）空白工作表被自動排除； 4）合并后，原始文件名將作為工作表名稱的前綴添加； 有關此功能的更多功能， 請訪問這里.如果您想免費試用（30-day) 這個實用程序， 請點擊下載，然后按照上述步驟進行操作。
Kutools for Excel - 幫助您始終提前完成工作，有更多時間享受生活
您是否經常發現自己正在趕上工作，缺乏時間為自己和家人度過？ Kutools for Excel 可以幫你處理 80% Excel 拼圖，提高 80% 的工作效率，讓您有更多時間照顧家人，享受生活。
適用于300種工作場景的1500種高級工具使您的工作比以往更加輕松。 從現在起，不再需要記住公式和VBA代碼，讓您的大腦休息一下。 復雜和重復的操作可以在幾秒鐘內一次性完成。 每天減少成千上萬的鍵盤和鼠標操作，現在告別職業病。 在3分鐘內成為Excel專家，幫助您快速獲得認可并提薪。 110,000名高效人才和300多家世界知名公司的選擇。 使您的$ 39.0的價值超過$ 4000.0的他人培訓。 全功能免費試用 30-天。 60 天無理由退款保證。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
