為了實現將無數個具有相同數據格式的excel表文件合併到一個excel的一個工作簿裡面去方便進行後續的篩選，提取數據，分析等等。
需要分兩步驟走：
第一步：將所有的excel合併到一個excel中;剛才的多表之中的內容化身為現在的一個表，下邊的多個sheet。
第二步：把這個excel之中的多個sheet合併到一個sheet之中。
所需的基礎軟體：擁有VBA的excel軟體，可以用微軟的包含VBA的office，也可以用國產的wps之中的專業版。
下邊說具體步驟
一不同表合併到一個有很多sheet的表裡
1、新建一個工作薄，將其命名為你合併後的名字。
2、開啟此工作薄。
3、在其下任一個工作表標籤上點選右鍵，選擇「檢視程式碼」。 （wps的該按鈕在開發工具下）
4、在打開的VBA編輯視窗中貼上以下程式碼：
Sub 工作薄間工作表合併()
Dim FileOpen Dim X As Integer Application.ScreenUpdating = False FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄") X = 1 While X <= UBound(FileOpen) Workbooks.Open Filename:=FileOpen(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
5、關閉VBA編輯視窗。
6、在excel中，工具---巨集---巨集,選「工作薄間工作表合併」,然後「執行」。
7、在開啟的對話視窗中，選擇你需要合併的工作表，如果多的話，可以放在一個資料夾，然後全選。
8、等待。 。 。 。 ok！
二將一個表裡的許多sheet合併到一個sheet
1、在包含多個sheet的工作簿中（如多個工作簿合併後含n個sheet的工作簿），新建一個sheet
2、在新建的sheet標籤上點擊右鍵，選擇「檢視程式碼」（wps的該按鈕在開發工具下）
3 、在開啟的VBA編輯視窗中貼上以下程式碼：
Sub 合併目前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.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運行，等待…合併好了後會彈出提示。
以上是excel中如何將多個sheet合併成一個的詳細內容。更多資訊請關注PHP中文網其他相關文章！
