首頁 > 專題 > excel > excel中如何將多個sheet合併成一個

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

silencement
發布: 2019-11-27 14:55:00
原創
81315 人瀏覽過

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

為了實現將無數個具有相同數據格式的excel表文件合併到一個excel的一個工作簿裡面去方便進行後續的篩選,提取數據,分析等等。

需要分兩步驟走:

第一步:將所有的excel合併到一個excel中;剛才的多表之中的內容化身為現在的一個表,下邊的多個sheet。

第二步:把這個excel之中的多個sheet合併到一個sheet之中。

所需的基礎軟體:擁有VBA的excel軟體,可以用微軟的包含VBA的office,也可以用國產的wps之中的專業版。

下邊說具體步驟

一不同表合併到一個有很多sheet的表裡

1、新建一個工作薄,將其命名為你合併後的名字。

2、開啟此工作薄。

3、在其下任一個工作表標籤上點選右鍵,選擇「檢視程式碼」。 (wps的該按鈕在開發工具下)

4、在打開的VBA編輯視窗中貼上以下程式碼:

Sub 工作薄間工作表合併()

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

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 合併目前工作簿下的所有工作表()

1

2

3

4

5

6

7

8

9

10

11

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中文網其他相關文章!

相關標籤:
來源:php.cn
本網站聲明
本文內容由網友自願投稿,版權歸原作者所有。本站不承擔相應的法律責任。如發現涉嫌抄襲或侵權的內容,請聯絡admin@php.cn
作者最新文章
熱門教學
更多>
最新下載
更多>
網站特效
網站源碼
網站素材
前端模板