如何把多个表格的内容合并到一个表格里面

1：打开需要合并的表格。

2：在底部工作表名称处右键—查看代码

3：输入以下代码：

Sub 多表多文件合并为多表一文件()

Dim FileArray

Dim X As Integer

Application.ScreenUpdating = False

FileArray = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合并工作薄")

X = 1

While X <= UBound(FileArray)

Workbooks.Open Filename:=FileArray(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：运行后选择要合并的表格即可。

注意：如果要合并的表格是xls格式，需要将代码里的xlsx替换成xls。