excel中如何將多個sheet合併成一個

為了實現將無數個具有相同數據格式的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中文網其他相關文章！