一键合体将多个文件合并为一个文件

　　工作中
　　经常需将几个Excel文件中的工作表
　　合并到一个Excel文件中
　　效果如下
　　▼
　　●●●
　　小窍门：将屏幕横放可放大图片！
　　新建合并工作簿的宏命令
　　▎1 ＂宏＂在哪里？
　　■单击工具栏上的＂开发工具＂标签
　　■点击＂宏＂
　　如下图所示。
　　●●●
　　▎2 给＂宏＂起名字
　　表格中出现＂宏＂对话框
　　■＂宏名＂下方输入框内输入宏名字:hebing
　　■点击＂创建＂
　　如下图所示。
　　●●●
　　▎3 在VBA编辑窗口编辑代码
　　Excel将调出VBA窗口
　　■在编辑窗口可以看到如下代码
　　Sub hebing()
　　End Sub
　　这段代码是系统根据宏名＂hebing＂自动生成。
　　如下图所示。
　　●●●
　　■在编辑窗口输入如下代码
　　Sub hebing()
　　Dim FileOpen
　　Dim X As Integer
　　Application.ScreenUpdating = False
　　FileOpen = Application.GetOpenFilename(FileFilter:=＂Microsoft Excel(*.xls;*.xlsx),*.xls;*.xlsx＂, MultiSelect:=True, Title:=＂hebing＂)
　　X = 1
　　While X <= UBound(FileOpen)
　　Workbooks.Open Filename:=FileOpen(X)
　　Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
　　X = X 1
　　Wend
　　ExitHandler: Application.ScreenUpdating = True
　　Exit Sub
　　ErrHadler: MsgBoxErr.Description
　　End Sub
　　如下图所示。
　　●●●
　　VBA代码编辑完成后关闭VBA窗口，至此合并工作簿的宏创建完毕。
　　▎4 查看刚刚创建的宏＂hebing＂
　　■单击工具栏上的＂开发工具＂标签
　　■点击＂宏＂,可以从＂宏＂对话框中看到＂hebing＂宏
　　如下图所示。
　　●●●
　　为新建的＂hebing＂宏指定一个按钮
　　▎5 如何新建按钮
　　■单击工具栏上的＂开发工具＂标签
　　■点击＂插入＂
　　■从下拉菜单中选择＂按钮（窗体控件）＂。如下图所示。
　　●●●
　　■在工作表中点击需创建按钮的位置，按住鼠标并拖动鼠标改变按钮大小
　　■松开鼠标时，会弹出＂指定宏＂对话框
　　■选择刚刚新建的＂hebing＂宏，点击＂确定＂
　　如下图所示。
　　●●●
　　■ ＂按钮1＂就是新建的＂hebing＂宏指定的按钮，如下图所示。
　　●●●
　　▎6 修改按钮的名字
　　■在按钮上单击鼠标右键
　　■从弹出的菜单中选择＂编辑文字＂，如下图所示。
　　●●●
　　■将按钮名字＂按钮1＂改为＂合并＂,如下图所示。
　　●●●
　　测试＂合并＂按钮
　　▎7 使用＂合并＂按钮合并工作簿
　　■点击＂合并＂按钮，如下图所示。
　　●●●
　　Excel弹出＂hebing＂对话框
　　■选定1月和2月营销快报
　　■点击＂打开＂，如下图所示。
　　●●●
　　1月、2月营销快报工作簿已经合并至一张工作簿中，如下图所示。
　　●●●
　　▎8 使用＂合并＂按钮继续合并其他工作簿
　　■点击＂合并＂按钮，如下图所示。
　　●●●
　　Excel弹出＂hebing＂对话框
　　■选定3月营销快报
　　■点击＂打开＂，如下图所示。
　　●●●
　　3月营销快报工作簿已经添加合并至工作簿中，如下图所示，工作簿中包含1月、2月、3月营销快报。
　　●●●
　　▎9 获取文件
　　需要＂一键合并工作簿＂Excel文件的朋友，可以：
　　■给我留言，并留下您的电子邮箱地址。
　　■或者在公众号主页面发送＂下载＂，获取下载链接及密码！
　　温馨提示：运行＂宏＂时，应开启＂宏＂。
　　更多文章
　　Excel瘦身秘籍！
　　Excel强大的翻译功能，不用太可惜了！
　　Excel做统计分析，这两个方法必须会！
　　常用Excel快捷键，工作必备技巧
　　PS：您也可以留言给我，我会及时给您答复！