如何快速合并多个 Excel 工作簿成为一个

1、某个单元格中有20个Excel工作簿，如下图所示，将他们全部合并到一个工作簿中：

2、新建一个工作簿，按下Alt+F11，打开VBA编辑界面，如下图所示：

3、复制如下代码到Excel的VBA编辑区，如下图所示：Sub 鱼木混猪()Dim FileOpenDim X 帆歌达缒As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub

4、然后点击“运行子程序”按钮，如下图所示：

5、在弹出的打开对话框中找到20个工作簿所在文件夹，并选择这20个工作簿，如下图所示：

6、等一小会，这20个工作簿就合并到一个工作簿中了，如下图所示：