Excel懒人必看🔥VBA一键合并所有表

牛马搞Excel真的会谢😭7个工作簿，每个还有十几张工作表，手动复制粘贴做到手酸！还好挖到VBA这个宝藏，一键批量合并，解放双手不加班！
✨ 超简单操作步骤
1. 📂 准备：把7个Excel文件全放进同一个文件夹，列标题保持一致。
2. 🛠️ 打开新Excel → 点击顶部【开发工具】→ 【Visual Basic】（没有就去文件-选项-自定义功能区勾选）。
3. 📝 插入→模块，直接复制粘贴下面代码（记得修改文件夹路径）：
vba
Sub 合并所有工作簿()
Dim folderPath As String, fileName As String
Dim wb As Workbook, ws As Worksheet, destWs As Worksheet
Dim lastRow As Long
' 改成你的文件夹路径，结尾必须加\
folderPath = "D:\你的文件文件夹\"
Set destWs = ThisWorkbook.Sheets(1)
destWs.Cells.Clear
fileName = Dir(folderPath & "*.xlsx")
Do While fileName <> ""
Set wb = Workbooks.Open(folderPath & fileName)
For Each ws In wb.Sheets
lastRow = destWs.Cells(destWs.Rows.Count, 1).End(xlUp).Row
ws.UsedRange.Copy destWs.Cells(lastRow + 1, 1)
Next ws
wb.Close False
fileName = Dir
Loop
MsgBox "合并完成！", vbInformation
End Sub
4. ▶️ 按F5运行，等待几秒，所有文件数据就自动汇总好啦！
💡 小提醒
✅ 列名不一致先统一，避免数据混乱
✅ 运行前记得关闭其他打开的Excel，防止报错
✅ 适合批量合并，一次设置永久好用
做统计的姐妹，这个方法直接封神！再也不用熬夜整理数据，快码住试试！
#Excel技巧 #VBA教程 #办公神器 #宝妈搞钱 #Excel批量合并 #职场高效