请选择 进入手机版 | 继续访问电脑版
在线投稿 文字标题 文字标题 文字标题 文字标题 文字标题
切换皮肤
Microsoft Excel如何快速合并多个工作簿至一个工作簿中?
知识改变命运,科技成就未来。工作中经常会遇到这样的情况,上级部门在收集了下级部门的Excel工作薄后,需要将信息汇总到一个工作表中,通过复制粘贴的话,这个过程枯燥乏味,如果出错就得不偿失了。Microsoft Excel版本太低,没有那么多的功能来方便我们的工作,那么只能通过“万能”的VBA来实现了。
Microsoft Excel快速合并多个工作簿至一个工作簿中详细操作流程:
步骤一:首先将需要合并的Microsoft Excel工作薄放在一个文件夹中,然后在这个文件夹中新建一个Microsoft Excel工作表,并重命名为【合并.xlsx】。左键双击打开【合并.xlsx】Microsoft Excel工作表。右键单击【合并】工作表后,左键单击右键菜单中的【查看代码(V)】选项,打开【Visual Basic编辑器】。
?url=http%3A%2F%2Fdingyue.ws.126.net%2F2020%2F0324%2Fe05b41e8j00q7of600015c000gt00edm.jpg

步骤二:编辑VBA代码。左键单击选中【Sheet1 合并】后,在右侧代码窗口中键入以下代码,您也可以选择复制粘贴,请注意代码中的标点符号为英文标点符号。代码输入完成后,同时按下键盘上的【Ctrl + S】键保存代码,先左键单击【Microsoft Excel】对话框中的【是(Y)】按钮,再左键单击【Microsoft Excel】对话框中的【确定】按钮,最后关闭【Visual Basic编辑器】即可完成代码编辑。
?url=http%3A%2F%2Fdingyue.ws.126.net%2F2020%2F0324%2F628d7957j00q7of600017c000hs00cdm.jpg
Sub 合并工作薄()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")
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:
MsgBox Err.Description
End Sub
步骤三:Microsoft Excel快速合并多个工作簿至一个工作簿使用方法。执行VBA代码,首先需要在菜单栏中显示【开发工具】。显示【开发工具】详细操作流程请参照:PPT小技巧:如何把视频嵌入到PPT演示文稿中合并成一个文件?PPT和Excel操作流程基本一致。左键单击菜单栏中的【开发工具】选项卡,左键单击【代码】功能区中的【宏】按钮。左键单击选中【宏】对话框中的【Sheet1.合并工作薄】后,左键单击【执行(R)】按钮。
?url=http%3A%2F%2Fdingyue.ws.126.net%2F2020%2F0324%2F8855a08bj00q7of60000zc000hs00b6m.jpg
步骤四:在弹出的【合并工作薄】对话框中,长按键盘上的【Ctrl】键,鼠标左键单击选中需要合并的Microsoft Excel工作表,这样可以跳跃式选择,当然【合并】工作表不需要选中,选择完成后,左键单击【打开(O)】按钮。等待片刻多个工作簿已经合并一个工作簿中啦!如想进一步操作请参照:Microsoft Excel怎么快速合并当前工作簿下的所有工作表?
?url=http%3A%2F%2Fdingyue.ws.126.net%2F2020%2F0324%2F48084be1j00q7of600013c000hs00ckm.jpg
?url=http%3A%2F%2Fdingyue.ws.126.net%2F2020%2F0324%2F71a42f90j00q7of60000hc000hs00avm.jpg
至此,Microsoft Excel快速合并多个工作簿至一个工作簿中操作流程已全部结束。知识改变命运,科技成就未来。希望这个小知识能给您的工作和生活带来更多的便捷。如有疑问或建议,请在下方留言。点击关注,有更多科技小贴士等着您,感谢您的支持。


回复

使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则


    Archiver|手机版|小黑屋|齐聚无忧 |网站地图

    Powered by Discuz! X3.4  © 2001-2013 Comsenz Inc.