工作中 经常需将几个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文件的朋友,可以: ■ 给我留言,并留下您的电子邮箱地址。 ■ 或者在公众号主页面发送“下载”,获取下载链接及密码! 温馨提示:运行“宏”时,应开启“宏”。 更多文章 PS:您也可以留言给我,我会及时给您答复! |
|