如何合并多个excel报表到同一表中，只保留一个表头

最新推荐文章于 2025-07-03 14:44:26 发布

原创最新推荐文章于 2025-07-03 14:44:26 发布 · 1.4w 阅读

13 ·

CC 4.0 BY-SA版权

其他专栏收录该内容

10 篇文章

订阅专栏

本文介绍了一种使用VBA脚本的方法，可以将同一文件夹内所有Excel工作簿中的工作表数据合并到一个新的工作表中。该脚本通过打开每个文件，复制其内容并将其粘贴到目标工作表的末尾来实现这一目的。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

新建一个工作表，命名后保存到和欲合并的几个文件同一个文件文件夹，按 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就可以了

Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
If Num = 1 Then
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
Else
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Offset(1, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
End If
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub