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