excel怎么合并多个工作薄工作表

1、首先把需要合并的excel工作薄整理到一个文件夹中，如图，用来合并到一起的工作薄的名字要注意，这里取名叫“合并工作薄”。

3、如图，打开准备好的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

5、回到“合并工作薄”的excel表格中，如图，点击工具（没有的到excel的选项中添加），选择宏。

7、双击后弹出选择待合并的文件夹中工作薄，直接全选要合并的工作薄即可。