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个工作簿就合并到一个工作簿中了，如下图所示：
