Excel幾個工作表如何快速合併（Excel怎麼把多個工作表合成一個工作表）

哈嘍~我是運營菌。

上次介紹了【郵件合併】給員工群發特定的郵件（點選此處回看），看來大家對批量處理資料還是挺感興趣的，今天教大家【合併工作表】。

合併工作表有2種主流使用方法：

00兩種方法合併工作表

01VBA合併工作表

01.開啟VBA的編輯器，【開發工具】【Visual Basic】

02.進入VB編輯器，雙擊選擇This workbook 物件下，複製以下程式碼進去：

以下為程式碼↓↓

Sub 合併當前工作簿下的所有工作表()

Dim ws As Worksheet

Dim sh As Worksheet, i%

On Error Resume Next '如遇錯誤繼續執行

Application.ScreenUpdating = False '關閉螢幕重新整理

Application.DisplayAlerts = False '禁用警告提示

Worksheets("彙總").Delete '刪除原彙總表

Set ws = Worksheets.Add(before:=Sheets(1)) '新建工作表

ws.Name = "彙總" '新建工作表命名為彙總

For Each sh In Sheets: '遍歷所有工作表

If sh.Name <> "彙總" Then '判斷工作表是否為彙總表

i = ws.Range("A" & Rows.Count).End(xlUp).Row 1 '獲取彙總表中A列資料區域最後一行的行號 1

sh.UsedRange.Copy '複製分表中的資料

ws.Cells(i, 1).PasteSpecial Paste:=xlPasteAll '貼上資料

ws.Cells(i, 1).PasteSpecial Paste:=xlPasteColumnWidths '貼上列寬

End If

Next

Application.DisplayAlerts = True '恢復警告提示

Application.ScreenUpdating = True '開啟螢幕重新整理

MsgBox "工作表合併完畢"

End Sub

03.貼上完成後，按F5執行，即可合併該工作簿下的所有工作表。

PS：想合併那個工作簿，就把這個程式碼複製到對應的工作簿編輯器即可。

02利用PQ合併工作表

要求：2016版本以上，2016,365,2019均可。

01.新建Excel，選擇資料，【獲取資料】【自Excel工作簿】

02.選擇對應的工作簿資料來源匯入進來。

03.選擇上面資料夾標誌的，名稱就是工作簿名稱處，點選【轉換資料】。（ps:千萬不要點選下面工作表預覽-轉換資料）

04.右擊data資料列，【刪除其他列】。

05.單擊如圖小角標，展開資料，選擇對應的列。確認。

06.資料來源預設就展開，把各個工作表資料合併在一起，如無其他調整直接選擇【關閉並上載至】

07.預設放置在新工作表的A1單元格作為開頭。

08.確認後，合併好的資料就放置在對應的位置。

03資料來源的重新整理

VBA合併

01.合併程式碼需要放置在要合併工作表的工作簿中。

02.資料來源有變化，需要重新執行一次VBA程式碼。

PQ合併

01.資料來源有變化後，需要先儲存關閉資料來源表，然後重新整理合併工作表資料。

02.點選合併表格，右擊【重新整理即可重新整理】，即使資料來源工作簿增加了工作表也能自動合併進去，真正做到一勞永逸。

跟著資料來源的變化↓

好啦！關於【合併工作表】就介紹到這裡，如果同學有更好的方法或疑問，都可以在評論區留言哈，順便幫忙點個在看。