在同一工作簿中将格式相同的工作表合并成一个新表

首先保证每个sheet的格子完全一致 

然后可以用VBA解决 

合并之前，请先创建一个空白的 Sheet 作为合并目标 Sheet ，这个 Sheet 必须是第一个 Sheet，sheet名字无所谓。 
按Alt + F11，弹出VBA编辑页面 
在左上角的Project中找到VBAProject(工作表名)，双击”This workbook”，右边会弹出一个空白框，在其中输入下列语句： 

Sub CombineSheet() 

Dim i, j, k, n As Integer 
n = 1 
For i = 2 To ThisWorkbook.Sheets.Count 
For j = 1 To ThisWorkbook.Sheets(i).UsedRange.Rows.Count + 1 
For k = 1 To ThisWorkbook.Sheets(i).UsedRange.Columns.Count + 1 
ThisWorkbook.Sheets(1).Cells(n, k).Value = ThisWorkbook.Sheets(i).Cells(j, k).Value 
Next k 
n = n + 1 
Next j 
Next i 

End Sub 

如果数据不是从第一行，或者第一列开始的，请修改 j=1 及 k=1 两行的参数。 
比如 j=2 k=3 表示从 第2行，第三列开始的数据。 
修改完毕后按F5，等程序执行完毕，关闭VBA编辑页面。