日韩黑丝制服一区视频播放|日韩欧美人妻丝袜视频在线观看|九九影院一级蜜桃|亚洲中文在线导航|青草草视频在线观看|婷婷五月色伊人网站|日本一区二区在线|国产AV一二三四区毛片|正在播放久草视频|亚洲色图精品一区

分享

合并多個Excel工作表,你會嗎?

 老狗的圖書館 2019-05-31

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列再次點擊擴展按鈕,確定,點擊鼠標右鍵選擇則“刪除其他列”。在開始選項卡里,選擇“關(guān)閉并上載至”,將數(shù)據(jù)加載至現(xiàn)有工作表。最后對數(shù)據(jù)稍微處理即可。

PS:如果是要把多個工作表內(nèi)容合并到同一個工作簿里,同時內(nèi)容仍然保存在對應(yīng)的不同工作表里,也就是把不同工作簿里的不同工作表,合并到同一個工作簿里面儲存。如果要實現(xiàn)這樣的效果,我們可以利用代碼來實現(xiàn)。

在新的工作簿中,點擊鼠標右鍵選擇“查看代碼”,復(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元!

    本站是提供個人知識管理的網(wǎng)絡(luò)存儲空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點擊一鍵舉報。
    轉(zhuǎn)藏 分享 獻花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多