EXCEL多个相同的表格合成一个表格

EXCEL多个相同的表格合成一个表格

先将30多个表合并到一个工作薄中，再将工作薄中的30多个表合并到一个工作表中，具体如下：1.新建一个excel文件并打开，按ALT+F11-->插入-->模块，将下面的代码复制到模块中：

Sub merge()

Dim FileSet

Dim i As Integer

Dim filename

On Error GoTo 0

Application.ScreenUpdating = False

FileSet = Application.GetOpenFilename(FileFilter:="Excel 2003(*.xls),*.xls,Excel 2007-2013(*.xls x),*.xlsx", MultiSelect:=True, Title:="选择需要合并的文件")

If TypeName(FileSet) = "Boolean" Then

GoTo ExitSub

End If

For Each filename In FileSet

Workbooks.Open filename

Sheets().Move after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

Next

ExitSub:

Application.ScreenUpdating = True

End Sub

点击运行，类似于播放的那个按钮，或者点击菜单上的运行下的运行子过程，将需要合并的表全部选上，（最好是将需要合并的工作表放到一个文件中，便于选择）确定。

2.再一次的插入模块，左边会显示插入模块2，同样将下面代码复制到模块2中，如下：

Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示" End Sub

点击运行即可，别的工作表就会自动复制到第一张表上