如何快速合并多个 Excel 工作簿成为一个
Excel中可以利用VBA写代码将多个工作簿合并成为一个工作簿中的一个个工作表，具体要怎么做呢，今天就来介绍具体的做法。
某个单元格中有20个Excel工作簿，如下图所示，将他们全部合并到一个工作簿中：
新建一个工作簿，按下Alt+F11，打开VBA编辑界面，如下图所示：
复制如下代码到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
然后点击“运行子程序”按钮，如下图所示：
在弹出的打开对话框中找到20个工作簿所在文件夹，并选择这20个工作簿，如下图所示：
等一小会，这20个工作簿就合并到一个工作簿中了，如下图所示：
版权声明：本站【趣百科】文章素材来源于网络或者用户投稿，未经许可不得用于商用，如转载保留本文链接：https://www.qubaik.com/article/194470.html
