前提：工作薄首行不能有合併的單元格
準備工作：將要合併的工作簿放在一個資料夾裡面，資料夾中不能有亂七八糟的東西，只能有你要合併的工作薄
操作步驟：在此資料夾下建立Excel表格並開啟，按下alt+F11打VBA編輯器，在選單欄中【插入】=>【模組】，貼上下方程式碼即可。
程式碼：

Sub 合併當前目錄下所有工作簿()
Dim Wb As Workbook
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xlsx")
AWbName = ActiveWorkbook.Name
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
c = ThisWorkbook.Sheets("sheet1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
If c = 1 Then   '防止合併的工作簿第一行空著
c = 0
End If
ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets("sheet1").Cells(c + 1, 1)  '合併工作簿的第一個sheet名字為：sheet1
Wb.Close False
End If
MyName = Dir
 Loop
 Application.ScreenUpdating = True
 MsgBox "已完成"
End Sub
 

相關文章：【Office】【Excel】將多個工作表合為一個工作表