首頁 > 專題 > excel > 正文

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

原創 2019-06-19 14:42:03 0 969
第七期線上培訓班

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

php中文網最新課程二維碼
  • 相關標簽:excel
  • 本文原創發布php中文網 ,轉載請注明出處,感謝您的尊重!
  • 相關文章


  • python能處理excel嗎
  • excel中yd是什么意思
  • excel中文是什么意思
  • excel中如何將多個sheet合并成一個
  • 網友評論

    文明上網理性發言,請遵守 新聞評論服務協議

    我要評論
    獨孤九賤(5)_ThinkPHP5視頻教程

    獨孤九賤(5)_ThinkPHP5視頻教程

    ThinkPHP是國內最流行的中文PHP開發框架,也是您Web項目的最佳選擇。《php.cn獨孤九賤(5)-ThinkPHP5視頻教程》課程以ThinkPHP5最新版本為例,從最基本的框架常識開始,將...

    獨孤九賤(4)_PHP視頻教程

    獨孤九賤(4)_PHP視頻教程

    江湖傳言:PHP是世界上最好的編程語言。真的是這樣嗎?這個梗究竟是從哪來的?學會本課程,你就會明白了。 PHP中文網出品的PHP入門系統教學視頻,完全從初學者的角度出發,絕不玩虛的,一切以實用、有用...

    獨孤九賤(1)_HTML5視頻教程

    獨孤九賤(1)_HTML5視頻教程

    《php.cn原創html5視頻教程》課程特色:php中文網原創幽默段子系列課程,以惡搞,段子為主題風格的php視頻教程!輕松的教學風格,簡短的教學模式,讓同學們在不知不覺中,學會了HTML知識。 ...

    ThinkPHP5實戰之[教學管理系統]

    ThinkPHP5實戰之[教學管理系統]

    本套教程,以一個真實的學校教學管理系統為案例,手把手教會您如何在一張白紙上,從零開始,一步一步的用ThinkPHP5框架快速開發出一個商業項目。

    PHP入門視頻教程之一周學會PHP

    PHP入門視頻教程之一周學會PHP

    所有計算機語言的學習都要從基礎開始,《PHP入門視頻教程之一周學會PHP》不僅是PHP的基礎部分更主要的是PHP語言的核心技術,是學習PHP必須掌握的內容,任何PHP項目的實現都離不開這部分的內容,通...

    作者信息

    silencement

    認證0級講師

    最近文章
    python環境怎么搭建 171
    python官網怎么下載python 589
    python怎么讀寫excel文件 499

    相關視頻教程

  • PHP操控Excel視頻教程 PHP操控Excel視頻教程
  • 相關視頻章節

    第七期線上培訓班 118期四肖中特唯一