首页 >>  正文

vba合并多个工作表代码

来源: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分钟快速搞定

储娥徐3713excel一个工作簿有几个表如何合并成一个
倪趴功18135579580 ______ 下面的VBA 代码能帮你把当前工作簿里各个工作表里的数据合并到一个新工作表里.同时需要注意的是,所有工作表里的数据结构,列标题,以及各列排列的顺序都必须一样.操作如下: 1. 按住Alt + F11键打开 Microsoft Visual Basic for ...

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

储娥徐3713EXCEL VBA 快速合并多个工作表数据转换为数值到一个工作表 -
倪趴功18135579580 ______ 最快速的方法就是复制粘贴,把所有表的内容复制、粘贴到一个新表中.如果表的个数成千上万,可以写VBA代码来完成这个复制、粘贴的过程,下面是我写的代码,可以ALT+F11之后粘贴使用:sub 宏1() dim i,n for i=2 to sheets.count n=sheets(1).usedrange.rows.count+1 sheets(i).usedrange.copy sheets(1).cells(n,1) next i end sub

储娥徐3713如何把几个excel工作薄合并成一个 -
倪趴功18135579580 ______ 1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet12、选择查看代码(PS:excel有着一项,WPS没有)3、将下列代码复制到文本框中:Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, ...

储娥徐3713合并多个工作表中的内容
倪趴功18135579580 ______ 1 新建一个工作表放在最左边,在这个工作表运行以下代码 Sub 合并() For I = 2 To Sheets.Count '如果工作表的第一行都一样,就把下面 Rows("1" & 的1改成2就好了 Sheets(I).Rows("1" & ":" & Sheets(I).Range("A60000").End(xlUp).Row). _ Copy Range("A" & Range("A60000").End(xlUp).Row + 1) Next End Sub

储娥徐3713如何将多个电子表格中的内容快速合并到一个工作表中 -
倪趴功18135579580 ______ 原始数据所在工作簿包含多个格式相同的工作表,只不过每个工作表内容不同,比如说不同人名的工作表数据或者不同部门填写的数据. 在原始数据同目录下新建一个工作簿,建立两个工作表,名称分别为逗首页地和逗合并汇总表地. 按Alt+...

储娥徐3713如何快速合并单个excel表中的多个sheet的工作页 -
倪趴功18135579580 ______ 1. 增加一个工作表sheet,重命名xx .2. 点到新增加的工作表中,按ALT+F11,出现如图的对话框.3.双击名称xx的图标.出现如下对话框.4. 在上图红色的区域复制上如下代码.Sub GetStName() Dim FinalRow As Long Dim St As Worksheet ...

储娥徐3713如何快速将多个excel合并成一个. -
倪趴功18135579580 ______ 把多个工作簿合并成一个工作簿中的多个sheet,看到有朋友需要进一步合并成一个sheet中的多行.现补充分享如下: 使用方法: 1、在包含多个sheet的工作簿中(如多个工作簿合并后含n个sheet的工作簿),新建一个sheet 2、在新建的sheet...

储娥徐3713你怎么用VBA合并两百多个工作表呢?我也在为这个烦呢?能说说吗? -
倪趴功18135579580 ______ 工作表在一个文件夹里面的话,可以用Dir 寻找,然后打开复制粘贴.直到Dir返回 "."/".." 否则就需要一个文件名列表咯. 然后就For.. next 咯

储娥徐3713怎么将多个Excel工作簿合并成一个新的工作簿 -
倪趴功18135579580 ______ 根据数据格式的实际状况,可考虑选择以下方式之一: 1、直接设置函数公式. 2、设置控件(VBA). 3、编写宏代码(VBA). 4、编一个小程序.

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