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
点击运行即可，别的工作表就会自动复制到第一张表上。