新建一个文件夹，把要合并的excel工作簿全部放到这个文件夹里，同时在文件夹里新建一个数据合并的工作簿；

打开文件夹里的数据合并工作簿，之后右键工作表选择查看代码选项打开；

复制以下代码到以下窗口中

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

点击运行按钮或者按f5键运行vba代码；

代码运行后会弹出要进行数据合并的文件夹，选择之前要进行数据合并创建的文件夹，按ctrl+a键全选所有的工作簿，之后点击打开；

代码运行完毕后，即可快速把多个工作簿里的内容移动到一个工作簿里的多个工作表里。

1.新建一个文件夹，把要合并的excel工作簿全部放到这个文件夹里，同时在文件夹里新建一个数据合并的工作簿；

2.打开文件夹里的数据合并工作簿，之后右键工作表选择查看代码选项打开； 3.复制以下代码到以下窗口中；

4.点击运行按钮或者按f5键运行vba代码；

5.代码运行后会弹出要进行数据合并的文件夹，选择之前要进行数据合并创建的文件夹，按ctrl+a键全选所有的工作簿，之后点击打开；

6.代码运行完毕后，即可快速把多个工作簿里的内容移动到一个工作簿里的多个工作表里。