工作中 经常需将几个Excel文件中的工作表 合并到一个Excel文件中 效果如下 小窍门:将屏幕横放可放大图片! 新建合并工作簿的宏命令 1“宏”在哪里? 单击工具栏上的“开发工具”标签 点击“宏” 如下图所示。 2给“宏”起名字 表格中出现“宏”对话框 “宏名”下方输入框内输入宏名字:hebing 点击“创建” 如下图所示。 3在VBA编辑窗口编辑代码 Excel将调出VBA窗口 在编辑窗口可以看到如下代码 Subhebing() EndSub 这段代码是系统根据宏名“hebing”自动生成。 如下图所示。 在编辑窗口输入如下代码 Subhebing() DimFileOpen DimXAsInteger Application。ScreenUpdatingFalse FileOpenApplication。GetOpenFilename(FileFilter:MicrosoftExcel(。。xlsx),。。,MultiSelect:True,Title:) X1 WhileXUBound(FileOpen) Workbooks。OpenFilename:FileOpen(X) Sheets()。MoveAfter:ThisWorkbook。Sheets(ThisWorkbook。Sheets。Count) XX1 Wend ExitHandler:Application。ScreenUpdatingTrue ExitSub ErrHadler:MsgBoxErr。Description EndSub 如下图所示。 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:您也可以留言给我,我会及时给您答复!