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

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

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

3、复制如下代码到Excel的VBA编辑区，如下图所示：

Sub 鱼木混猪()

Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", 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

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

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

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