PowerQuery是一個非常強大的數(shù)據(jù)抓取工具，Excel2016自帶Power Query功能，可以直接使用，但Excel2010、2013版本需要自行安裝。
下載地址：
https://www.microsoft.com/zh-CN/download/details.aspx?id=39379
如下圖所示，這些需要合并的工作表都是位于獨立的不同工作簿中，我們把這些工作簿放置在同一個文件夾中。
接下來我們看下合并內(nèi)容的具體操作：
1、在工作表所在文件夾外新建一個工作簿，用來放置匯總的數(shù)據(jù)。打開新建工作簿，在【數(shù)據(jù)】選項卡下點擊“新建查詢”，選擇“從文件夾”導(dǎo)入，在彈出的對話框中，“文件夾路徑”找到需要合并的這幾個工作表所在的文件夾，點擊確定?；蛘咧苯訌?fù)制該文件夾的路徑復(fù)制粘貼也可以。
2、點擊“確定”后進入了PowerQuery界面，文件夾下的所有文件基本信息被提取出來，包括文件名、后綴名、文件創(chuàng)建時間、文件完整路徑等信息。點擊“轉(zhuǎn)換數(shù)據(jù)”，進入PowerQuery編輯器，在“添加列”里點擊“自定義列”，輸入自定義列公式=Excel.Workbook([Content])，這里要注意首字母的大小寫。
3、點擊“確定后”，點擊新添加的自定義列擴展按鈕，取消勾選“使用原始列名作為前綴”，接著在Data列再次點擊擴展按鈕，確定，點擊鼠標(biāo)右鍵選擇則“刪除其他列”。在開始選項卡里，選擇“關(guān)閉并上載至”，將數(shù)據(jù)加載至現(xiàn)有工作表。最后對數(shù)據(jù)稍微處理即可。
PS：如果是要把多個工作表內(nèi)容合并到同一個工作簿里，同時內(nèi)容仍然保存在對應(yīng)的不同工作表里，也就是把不同工作簿里的不同工作表，合并到同一個工作簿里面儲存。如果要實現(xiàn)這樣的效果，我們可以利用代碼來實現(xiàn)。
在新的工作簿中，點擊鼠標(biāo)右鍵選擇“查看代碼”，復(fù)制以下代碼：
Sub 工作薄間工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:='Microsoft Excel文件(*.xlsx),*.xlsx', 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復(fù)制完之后按F5鍵。
教 程 推 薦 
730分鐘教程，120個視頻，只需108元！
