返回目录：excel表格制作
多工作簿合并为一个工作簿，在工作中很常见，比如把不同门店的信息、每个月的销量合并到一个工作簿等等，在工作簿比较少的时候可以使用复制粘贴，一旦数量较多这种就不适用了。这里分享几种比较高效的合并方法，可以根据自己的需要做选择。
1、复制或移动工作表
方法：
① 打开原工作簿和目标工作簿
② 在原工作表标签处右击，选择移动或复制工作表
③ 对话框中选择目标工作簿，以及需要移动的位置，勾选“建立副本”是复制，会在原工作簿保留，不勾选就是移动，原工作簿中不会保留
这个我在微头条也分享过，当然这个并不适合数量大的工作簿，下面介绍几种工作簿数量多或少均使用的，来点真正的干货。
2、使用WPS
WPS是国产的，可能更加了解国内的需求，所以有很多功能做的还是很不错的，比如合并多工作簿功能。
方法：
开始> 文档助手（其他版本可能叫“智能工具箱”）> 工作表> 工作表合并 > 添加合并文件 > 开始合并
会把合并结果放在一张新建的工作簿。
但是WPS这个功能是收费的，只能免费体验7天，所以对于只是偶尔用或不想花钱的小伙伴并不适用。
3、VBA代码
① 新建一个工作簿，重命名后打开
② 打开VBA编辑器（快捷键：Alt + F11），或者点击【开发工具】【Visual Basic】打开，双击sheet1进入代码编辑，粘贴VBA代码，关闭VBA编辑器
③ 点击【开发工具】【宏】，找到对应的宏名，点击执行，选择需要合并的Excel文件
代码：
Sub 合并多工作簿为一个工作簿() Dim FileSet Dim i As Integer On Error GoTo 0 Application.ScreenUpdating = False FileSet = Application.GetOpenFilename( FileFilter:="Excel 2003(*.xls),*.xls,Excel 2007(*.xlsx),*.xlsx", _MultiSelect:=True, Title:="选择要合并的文件") If TypeName(FileSet) = "Boolean" Then GoTo ExitSub End If For Each Filename In FileSet Workbooks.Open Filename Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Next ExitSub: Application.ScreenUpdating = True End Sub
代码是我在网上自己找的，网上有很多，这个我觉得是比较好的一个。
代码中：FileFilter:="Excel 2003(*.xls),*.xls,Excel 2007(*.xlsx),*.xlsx"，匹配的是 .xls和 .xlsx两种后缀，所以想匹配其他后缀的可以自己修改代码，比如还想匹配 .xlsm的后缀，可以修改为 FileFilter:="Excel 2003(*.xls),*.xls,Excel 2007(*.xlsx),*.xlsx,Excel 2010(*.xlsm),*.xlsm"。所以在选择文件没有找到文件时要看下后面的匹配后缀是否正确：
易用宝和方方格子这两种插件个人觉得还是非常好用的，有很多比较常用的功能都帮我们做好了，比如现在要用的合并工作簿。
安装方法：
网上找一个安装包，很容易找到，就是傻瓜式安装，安装好后重新打开Excel时会提示“是否安装到 Excel中”，选择安装就可以了。方方格子也是同样的方法。
重新打开Excel后就可以看到了：
两个插件合并工作簿的具体操作：
易用宝：
方法：
① 【易用宝】>【工作簿管理】>【合并工作簿】> 点击“浏览”，选择需要合并的文件所在的文件夹 > 把需要合并的文件使用箭头添加到“待合并工作簿” > 选择合适的“合并选项”，点击合并 > 合并完成后点击退出
会把合并结果放在一个新建的工作簿，保存即可。
方方格子：
和易用宝差不多，可能还更加简单快捷。
方法：
① 方方格子 > 汇总拆分 > 合并多簿 > 选择文件（这里选择未打开）> 添加文件，确定
以上就是合并多个工作簿为一个的方法，当然还有很多其他合并的方法，个人觉得使用VBA代码和插件的方法，你觉得哪个更好用呢？
如有其他疑问，欢迎在评论区留言！
关注【职场Excel】，每天一点职场excel小知识，教你掌握人生大职场！