VBA 一键批量合并多个 Excel 工作簿

934044253

工作经常需要把一堆表格合并到一个文件里，复制粘贴太耗时间，分享一段合并工作表 VBA 代码。
Sub 合并工作簿()Dim FilePath, FileName As StringDim wb As WorkbookDim sht As WorksheetFilePath = ThisWorkbook.Path & "\"FileName = Dir(FilePath & "*.xlsx")Do While FileName <> ""If FileName <> ThisWorkbook.Name ThenSet wb = Workbooks.Open(FilePath & FileName)For Each sht In wb.Sheetssht.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)Next shtwb.Close FalseEnd IfFileName = Dir()LoopMsgBox "合并完成！"End Sub使用方法：

• 新建一个 Excel 文件，和需要合并的文件放在同一个文件夹
• Alt+F11 打开 VBA 编辑器，插入模块粘贴代码
• 运行宏⚠️注意：提前备份文件，避免数据丢失。