【Office】【Excel】将多个工作薄合为一个工作薄

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

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

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