工作中经常会遇到这样的情况，上级部门在收集了下级部门的Excel工作薄后，需要将信息汇总到一个工作表中，通过复制粘贴的话，这个过程枯燥乏味，如果出错就得不偿失了Microsoft Excel版本太低。怎么快速合并多个表格？更多详情请大家跟着小编一起来看看吧！
怎么快速合并多个表格(1)
工作中经常会遇到这样的情况，上级部门在收集了下级部门的Excel工作薄后，需要将信息汇总到一个工作表中，通过复制粘贴的话，这个过程枯燥乏味，如果出错就得不偿失了。Microsoft Excel版本太低，没有那么多的功能来方便我们的工作，那么只能通过“万能”的VBA来实现了。
Microsoft Excel快速合并多个工作簿至一个工作簿中详细操作流程：
步骤一：首先将需要合并的Microsoft Excel工作薄放在一个文件夹中，然后在这个文件夹中新建一个Microsoft Excel工作表，并重命名为【合并.xlsx】。左键双击打开【合并.xlsx】Microsoft Excel工作表。右键单击【合并】工作表后，左键单击右键菜单中的【查看代码(V)】选项，打开【Visual Basic编辑器】。
步骤二：编辑VBA代码。左键单击选中【Sheet1 合并】后，在右侧代码窗口中键入以下代码，您也可以选择复制粘贴，请注意代码中的标点符号为英文标点符号。代码输入完成后，同时按下键盘上的【Ctrl + S】键保存代码，先左键单击【Microsoft Excel】对话框中的【是（Y）】按钮，再左键单击【Microsoft Excel】对话框中的【确定】按钮，最后关闭【Visual Basic编辑器】即可完成代码编辑。
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）】按钮。
步骤四：在弹出的【合并工作薄】对话框中，长按键盘上的【Ctrl】键，鼠标左键单击选中需要合并的Microsoft Excel工作表，这样可以跳跃式选择，当然【合并】工作表不需要选中，选择完成后，左键单击【打开(O)】按钮。等待片刻多个工作簿已经合并一个工作簿中啦！如想进一步操作请参照：Microsoft Excel怎么快速合并当前工作簿下的所有工作表？
至此，Microsoft Excel快速合并多个工作簿至一个工作簿中操作流程已全部结束。