python合并工作簿所有内容_如何快速的合并多个 Excel 工作簿成为一个工作簿?...

干货预警,全文4688字,阅读需要6分钟,本回答一次性解决批量合并工作簿、合并工作表的问题,赶时间的同学点赞▲收藏★退出,生擒本教程。

许多人以为批量合并工作簿只能用VBA,其实利用2016版本以上的PQ功能(Power Query)就可轻松解决。由于不少人对于工作簿和工作表的概念不清晰,首先给大家介绍一下它们。

工作簿就是一个Excel文件

工作表位于Excel工作界面的左下方

工作簿就是一个Excel文件

工作表位于Excel工作界面的左下方

一个工作簿里面有许多个工作表

相信每个小白经常在百度搜索:如何批量合并工作簿?如何批量合并工作表?但往往得到的结果都不如意。借着这个话题,分享2种超实用的方法给大家,希望有所帮助。

想要获取源文件的同学,请关注蚣众呺【Excel数据可视化】,输入文字【合并工作簿】,抱走练习文件。

一、合并工作簿

01.利用PQ合并工作簿

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

01.新建Excel,选择数据,【获取数据】【从文件夹】

02.选择对应的文件夹导入进来,这里的文件夹就是你要合并的工作簿都在里面的文件夹。

03.选择【转换数据】。

04.双击中【content字段】右上角的符号。

05.选择参数3,确定。(ps:合并工作簿正常情况就是【未选中任何供预览的项】,不要点击下方的工作簿)

06.数据源默认就展开,把对应要展开的列勾选上。确定。

07.数据源默认就展开,把各个工作表数据合并在一起,如无其他调整直接选择【关闭并上载至】。

默认放置在新工作表的A1单元格作为开头。

08.确认后,合并好的数据就放置在对应的位置。

02.数据源的刷新

PQ合并

01.数据源有变化后,需要先保存关闭数据源表,然后刷新合并工作表数据。

02.点击合并表格,右击【刷新即可刷新】,即使数据源工作簿增加了工作表也能自动合并进去,真正做到一劳永逸。

跟着数据源的变化↓

03.PQ合并工作表与工作簿区别

共同点:

1.都是从获取数据功能合并工作表,或合并工作簿。

2.在第5步,选择【合并文件】,均选择比原来更高一级的对象。如:合并工作表要选择【工作簿】,合并工作簿选择【文件夹】作为预览。

3.两者合并后都是将数据放置在一个工作表上。

不同点:

1.合并工作簿的合并数据多出一列【工作簿】名称。

2.利用合并工作簿还能获取文件位置路径。

好啦!关于【合并工作簿】就介绍到这里,接下来我们就要合并工作表。

二、合并工作表

方法01.​VBA合并工作表

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.点击合并表格,右击【刷新即可刷新】,即使数据源工作簿增加了工作表也能自动合并进去,真正做到一劳永逸。

跟着数据源的变化↓

终于把这2种方法分享给大家了,如果想进一步了解的批量合并工作表和工作簿的同学,私信【合并工作表】,即可获取上面的案例文件。

你学会了么,赶紧点个赞Mark一下吧~

你可能感兴趣的:(python合并工作簿所有内容)