有這么一種情況，就是我們有很多張excel，而且excel表里面的公式基本一樣，我們就想快速的把這些excel合并在一起，意思在合并在一個excel頁面，這樣可以方便我們分析和統計，那么excel如何快速把多個工作表合并到一個excel表？下面為大家介紹這種方法，希望能幫助到大家。

操作步驟：

1、原始數據所在工作簿包含多個格式相同的工作表，只不過每個工作表內容不同，比如說不同人名的工作表數據或者不同部門填寫的數據。

2、在原始數據同目錄下新建一個工作簿，建立兩個工作表，名稱分別為“首頁”和“合并匯總表”。

3、按Alt+F11進入VBA代碼編輯和調試界面。

4、根據下圖提示，插入一個模塊。

5、將下述代碼粘貼到模塊空白處：

復制代碼代碼如下:Sub CombineSheetsCells()
Dim wsNewWorksheet As Worksheet
Dim cel As Range
Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Variant
Dim TitleRow, TitleColumn As Range
Dim Num As Integer
Dim DataRows As Long
DataRows = 1
Dim TitleArr()
Dim Choice
Dim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$
Dim n, i
n = 1
i = 1
Application.DisplayAlerts = False
Worksheets("合并匯總表").Delete
Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))
wsNewWorksheet.Name = "合并匯總表"
MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")
If MyFileName = "False" Then
MsgBox "沒有選擇文件！請重新選擇一個被合并文件！", vbInformation, "取消"
Else
Workbooks.Open Filename:=MyFileName
Num = ActiveWorkbook.Sheets.Count
MyName = ActiveWorkbook.Name
Set DataSource = Application.InputBox(prompt:="請選擇要合并的數據區域：", Type:=8)