🎯开篇引入：为啥要学会Excel宏一键合并表格？
哈喽，大家好，我是糕梦！
你是不是经常遇到这种情况——老板让你把一堆Excel工作表汇总成一个表，每次都要一个个复制粘贴，眼睛都快瞎了还容易出错？
有没有一招能一键搞定，省时又省力？
其实，咱们只要学会用 Excel的宏功能 ，合并一百张表都跟玩儿似的！
今天糕梦就带大家用最简单的方式，搞定 一键批量合并工作表 ，让工作效率直接起飞！
准备好了吗？咱们走起~
1. 规划思路指导
先别着急动手，咱们先来想想：
你的工作簿里是不是有很多结构一致的小表（比如各部门月报、各门店销售表），现在要把它们合成一张大表？
这时候，宏能帮咱们轻松批量合并，省去手动复制的苦力活。
2. 仪表盘基本结构
合并后的表格长啥样？最简单的通常就是：
这样合并出来的数据表，老板一眼就能看明白。
3. 实用建议
别怕宏听起来高大上，其实用起来比你想象的还简单！
记住：
1. 应用场景
比如你手上有12个月的销售数据，每个月一张表，现在要汇总成全年数据。
用宏，一秒钟就能把所有数据合成一张表，还能自动去掉重复的表头，超级省心！
2. 操作步骤
放心，糕梦一步步带你搞定：
（1）打开你的Excel文件，把所有要合并的工作表放一起
（2）按下Alt + F11，进入VBA编辑器
（3）点击菜单栏的“插入”→“模块”
（4）把下面这段代码粘贴进去：
Sub 合并所有工作表到新表()
Dim ws As Worksheet
Dim 合并表 As Worksheet
Dim 行数 As Long
Set 合并表 = Worksheets.Add
合并表.Name = “合并结果”
行数 = 1
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> 合并表.Name Then
If 行数 = 1 Then
ws.UsedRange.Copy 合并表.Cells(行数， 1)
行数 = 合并表.Cells(合并表.Rows.Count， 1).End(xlUp).Row + 1
Else
ws.UsedRange.Offset(1， 0).Resize(ws.UsedRange.Rows.Count - 1).Copy 合并表.Cells(行数， 1)
行数 = 合并表.Cells(合并表.Rows.Count， 1).End(xlUp).Row + 1
End If
End If
Next
合并表.Columns.AutoFit
MsgBox “合并搞定啦！快去新表看看吧！”
End Sub
（5）关闭VBA窗口，回到Excel主界面
（6）按下Alt + F8，选中刚才的合并所有工作表到新表，点“运行”
3. 最终效果
你会发现，Excel里多了一个叫“合并结果”的新表，所有工作表的数据都自动汇总进去了，而且表头只保留了一次！
是不是比手动复制粘贴爽多了？
1. 切片器概念引入
有小伙伴会问：
“糕梦，这么合并出来的数据怎么筛选啊？”
其实，合并完以后，咱们可以用 切片器 或 筛选 功能，快速定位想看的内容。
2. 具体操作步骤
（1）点到“合并结果”表格上
（2）按Ctrl + T，把数据变成“表格”
（3）菜单栏选择“插入”→“切片器”
（4）选你想筛选的字段，比如“部门”或“月份”
（5）点击切片器按钮，数据就能随手切换啦
3. 实用技巧
- 小技巧提醒 ：宏默认会合并所有工作表，如果有不想合并的表，记得先把它们移走，或者在代码里加个排除判断
- 用宏批量合并后，数据量大的话记得保存，别Excel崩了
1. 布局安排
合并之后，表格可能会有点长，咱们可以：
2. 美化建议
别让表格太花哨！清爽、对齐、字号一致就行。
3. 实际效果
合并好的大表，是不是一看就高大上？
老板再问你要汇总，直接一键搞定，效率飞起！
回顾要点
今天咱们聊了：
糕梦练习任务
有问题多多留言，糕梦陪你一起瞎折腾！
看完还怕宏吗？其实一切都没那么难！
学会宏合并，工作效率直接翻倍，老板的赞赏就在前方等着你！
下次还想学啥Excel小技巧，记得来找糕梦哈！
加油，咱们一起进步！👏👏
// END OF TRANSMISSION
感谢阅读，欢迎点赞、收藏或分享
