工作中
经常需将几个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 修改按钮的名字
■ 在按钮上单击鼠标右键
■ 从弹出的菜单中选择“编辑文字”，如下图所示。
●●●
●●●
测试“合并”按钮
▎7 使用“合并”按钮合并工作簿
●●●
Excel弹出“hebing”对话框
■ 选定1月和2月营销快报
■ 点击“打开”，如下图所示。
●●●
1月、2月营销快报工作簿已经合并至一张工作簿中，如下图所示。
●●●
▎8 使用“合并”按钮继续合并其他工作簿
●●●
Excel弹出“hebing”对话框
■ 选定3月营销快报
■ 点击“打开”，如下图所示。
●●●
3月营销快报工作簿已经添加合并至工作簿中，如下图所示，工作簿中包含1月、2月、3月营销快报。
●●●
▎9 获取文件
需要“一键合并工作簿”Excel文件的朋友，可以：
■ 给我留言，并留下您的电子邮箱地址。
■ 或者在公众号主页面发送“下载”，获取下载链接及密码！
温馨提示：运行“宏”时，应开启“宏”。
更多文章
Excel瘦身秘籍！
Excel强大的翻译功能，不用太可惜了！
Excel做统计分析，这两个方法必须会！
常用Excel快捷键，工作必备技巧
PS：您也可以留言给我，我会及时给您答复！
