小男孩‘自慰网亚洲一区二区,亚洲一级在线播放毛片,亚洲中文字幕av每天更新,黄aⅴ永久免费无码,91成人午夜在线精品,色网站免费在线观看,亚洲欧洲wwwww在线观看

分享

合并多個(gè)Excel工作表,你會(huì)嗎?

 老狗的圖書館 2019-05-31

PowerQuery是一個(gè)非常強(qiáng)大的數(shù)據(jù)抓取工具,Excel2016自帶Power Query功能,可以直接使用,但Excel2010、2013版本需要自行安裝。

下載地址:

https://www.microsoft.com/zh-CN/download/details.aspx?id=39379

如下圖所示,這些需要合并的工作表都是位于獨(dú)立的不同工作簿中,我們把這些工作簿放置在同一個(gè)文件夾中。

接下來我們看下合并內(nèi)容的具體操作:

1、在工作表所在文件夾外新建一個(gè)工作簿,用來放置匯總的數(shù)據(jù)。打開新建工作簿,在【數(shù)據(jù)】選項(xiàng)卡下點(diǎn)擊“新建查詢”,選擇“從文件夾”導(dǎo)入,在彈出的對(duì)話框中,“文件夾路徑”找到需要合并的這幾個(gè)工作表所在的文件夾,點(diǎn)擊確定。或者直接復(fù)制該文件夾的路徑復(fù)制粘貼也可以。

2、點(diǎn)擊“確定”后進(jìn)入了PowerQuery界面,文件夾下的所有文件基本信息被提取出來,包括文件名、后綴名、文件創(chuàng)建時(shí)間、文件完整路徑等信息。點(diǎn)擊“轉(zhuǎn)換數(shù)據(jù)”,進(jìn)入PowerQuery編輯器,在“添加列”里點(diǎn)擊“自定義列”,輸入自定義列公式=Excel.Workbook([Content]),這里要注意首字母的大小寫。

3、點(diǎn)擊“確定后”,點(diǎn)擊新添加的自定義列擴(kuò)展按鈕,取消勾選“使用原始列名作為前綴”,接著在Data列再次點(diǎn)擊擴(kuò)展按鈕,確定,點(diǎn)擊鼠標(biāo)右鍵選擇則“刪除其他列”。在開始選項(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)這樣的效果,我們可以利用代碼來實(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元!

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

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類似文章 更多