首页 >>  正文

用vba合并多个excel工作簿

来源:baiyundou.net   日期:2024-09-20

领导发给了一个文件夹,里面有包含工作簿,让我快速汇总合并到一个工作簿里面去

这个文件夹打开之后,里面还有内层的多个文件夹,如下所示:

然后在文件夹里面,有格式相同的工作簿

如果一个一个的手动的复制,那效率太低了,而且容易出错,今天分享一个技巧,无需使用VBA代码,快速的将文件夹中的工作簿全部的汇总

1、新建汇总工作簿

我们在文件夹最外层,新建一个用来汇总的工作簿

打开这个汇总工作簿,然后我们选择数据,获取数据,选择来自文件,选择从文件夹

找到对应的文件夹路径,打开

会有一个弹窗,搜索到文件夹内所有的文件,我们点击转换数据,如下所示:

2、PQ操作

接下来,会弹出一个Powerquery的窗口,我们简称PQ

然后我们,选择添加列,选择自定义列,在里面输入公式:

=Excel.Workbook([Content],true)

需要注意大小写,否则会出错

然后我们点击自定义列右边的按纽,进行扩展数据

然后会出现自定义.data这个字段,我们继续进行扩展数据:

这个时候,鼠标会自动选中我们需要的数据,我们只需要点击主页,删除列,删除其他列,就可以把一些不需要的元素给进行删除

3、回传数据

我们点击文件,点击关闭并上载至

选择新工作表加载,这样文件夹中的所有数据就汇总到了一张表格里面了

而且当文件夹中的数据有更新的时候,只需要刷新数据,也能实时的进行同步更新

这个小技巧,你学会了么?动手试试吧!

","gnid":"92102831a6b913273","img_data":[{"flag":2,"img":[{"desc":"","height":"133","title":"","url":"https://p0.ssl.img.360kuai.com/t017e5c70a98c77d20e.jpg","width":"165"},{"desc":"","height":"373","title":"","url":"https://p0.ssl.img.360kuai.com/t0189b3070e8d8f59f0.jpg","width":"633"},{"desc":"","height":"713","title":"","url":"https://p0.ssl.img.360kuai.com/t012c1d54b3c820cf92.jpg","width":"834"},{"desc":"","height":"140","title":"","url":"https://p0.ssl.img.360kuai.com/t01f76f93a32cbaabe0.jpg","width":"239"},{"desc":"","height":"669","title":"","url":"https://p0.ssl.img.360kuai.com/t01c44eae87c61b390a.jpg","width":"728"},{"desc":"","height":"584","title":"","url":"https://p0.ssl.img.360kuai.com/t01944d37f0876920c8.jpg","width":"756"},{"desc":"","height":"490","title":"","url":"https://p0.ssl.img.360kuai.com/t01a15eba493fda63a0.jpg","width":"840"},{"desc":"","height":"725","title":"","url":"https://p0.ssl.img.360kuai.com/t01b72515c3f568bb29.jpg","width":"1039"},{"desc":"","height":"646","title":"","url":"https://p0.ssl.img.360kuai.com/t0125ba286f22c870d5.jpg","width":"1033"},{"desc":"","height":"645","title":"","url":"https://p0.ssl.img.360kuai.com/t0172f6b91445adf048.jpg","width":"882"},{"desc":"","height":"573","title":"","url":"https://p0.ssl.img.360kuai.com/t01ed33ef74e6514216.jpg","width":"1054"},{"desc":"","height":"776","title":"","url":"https://p0.ssl.img.360kuai.com/t01865dd506febf7417.jpg","width":"1262"},{"desc":"","height":"988","title":"","url":"https://p0.ssl.img.360kuai.com/t011553e10ce402361e.jpg","width":"880"}]}],"original":0,"pat":"art_src_3,fts0,sts0","powerby":"pika","pub_time":1708410600000,"pure":"","rawurl":"http://zm.news.so.com/aa06b786da87c7d4a146b9a4ed785eb3","redirect":0,"rptid":"65ac454cbb6046a6","rss_ext":[],"s":"t","src":"Excel自学成才","tag":[],"title":"跨多个文件夹合并Excel工作簿,1分钟快速搞定

朱荷果5102Excel 如何用VBA将多列内容合并为一列的内容 -
金策富18889942147 ______ 1、用VBA读出没列数据 2、汇合到一个表格中. 3、读出的数据可以暂时存到数组中. 4、百度一下会有很多代码.

朱荷果5102VBA合并当前excel的所有sheet -
金策富18889942147 ______ 代码如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 OptionExplicit Sub把所有工作表内容合并到最后一个工作表中() Dimi, n, st AsWorksheet Fori = Sheets.Count to 1 Step-1 Ifi = Sheets.Count Then Setst = Sheets(i) Ifst.UsedRange....

朱荷果5102如何将多个excel文件合并一个文件分sheet -
金策富18889942147 ______ 可以使用vba编程代码 这个在网上可以找到 另外 最简单的 可以下载一个excelhome 易用宝 插件 然后加载到excel中 做批量合并与拆分的操作

朱荷果5102万宋,多个EXCEL表格,怎么合并成一张大表 -
金策富18889942147 ______ 可以利用VBA快速把多个excel表合并成一个excel表软件版本:Office2007举例说明如下:1.有多个工作表有如下相同格式的数据,合并到总表中:2.Alt+F11,打开VBA编辑界面,输入如下代码:3.F5执行代码,表格数据就合并到总表中了:

朱荷果5102怎么在excel中用vba代码实现,在表格中随便选择一个区域,实现合并单元格? -
金策富18889942147 ______ Selection.Merge 直接合并 下面这个合并内容 Application.DisplayAlerts = False Application.EnableEvents = False For Each R In Selection S = S & R.Text & S1 Next Selection.Merge Selection = IIf(S1 <> "", Mid(S, 1, Len(S) - 1), S) Application.EnableEvents = True Application.DisplayAlerts = True

朱荷果5102如何快速合并单个excel表中的多个sheet的工作页 -
金策富18889942147 ______ 你用vba吧,把下面的代码复制到你的表格文件中运行,瞬间就会把你的所有sheet工作页合并到又名为“合并”的工作页中. Sub 合并其他工作表到当前工作() For i = 1 To Worksheets.Count If Sheets(i).Name <> "合并" Then '判断当前工作...

朱荷果5102如何快速把多个excel表合并成一个excel表 -
金策富18889942147 ______ 方法/步骤 我们需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel.如图所示:用microsoft excel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去.进去之后就看到了宏计算界面.如图所示:...

朱荷果5102如何快速的合并多个 Excel 工作簿成为一个工作簿 -
金策富18889942147 ______ 把要合并的文件复制到一个新建文件夹中,在该文件夹中新建一个execl,仅打开新建Excel,按Alt+F11,点菜单的插入,模块,粘贴如下代码:Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As ...

朱荷果510210个不同名称的EXCEL工作表,怎样把他们快速合并到一个表里,
金策富18889942147 ______ 附件中的工作簿里有一段VBA代码,可以将不同工作簿里的工作表合并到同一工作簿中.只是它会将每个工作簿中的所有工作表全部合并过来,这就需要你在合并前或者合并后将不需合并过来的工作表进行处理.

朱荷果5102如何快速合并单个excel表中的多个sheet的工作页 -
金策富18889942147 ______ https://jingyan.baidu.com/article/19020a0ad8080d529d28422a.html

(编辑:自媒体)
关于我们 | 客户服务 | 服务条款 | 联系我们 | 免责声明 | 网站地图 @ 白云都 2024