前提：工作薄首行不能有合并的单元格

准备工作：将要合并的工作簿放在一个文件夹里面，文件夹中不能有乱七八糟的东西，只能有你要合并的工作薄

操作步骤：在此文件夹下创建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】将多个工作表合为一个工作表