汇总几百个工作簿的数据，这方法1分钟就学会，工作1分钟就搞定
cac55 2024-10-07 06:34 16 浏览 0 评论
昨天发了一个汇总工作簿数据的PowerQuery教程，有同学就反应，是旧版本的Excel用不了，也有同学反应是WPS，没有这功能，今天我们就来个通用的方法。如果你经常我们需要合并N多工作簿中的数据到一个工作表中，这文章不要错过，收藏下，以后直接就可以用了。
要汇总数据，其实方法是比较多的，但是各有优缺点，而用VBA来做，简单易行，任意版本的Excel都可以用（WPS的同学，请自行安装VBA插件）。
1、合并的源文件介绍：
一共包括了3个Excel工作簿文件，在每个工作簿中又有两个工作表，这些表格的结构是一样的，包括了商品名称，销售数量，销售金额等等；
2、操作步骤
2.1 关闭刚才预览的三个Excel文件，并在同文件夹下，新建一个Excel文件，如图所示，汇总.xlsx就是刚才新建的
2.2、打开汇总文件，在工作表标签sheet1上面点右键，选择查看代码（也可以按键盘上面的快捷键 Alt+F11，一样的功能）
2.3 粘贴代码，运行
按照下图的1 2 3 的顺序，搞定就可以了，点击3以后，一切都是自动的，程序会依次打开文件，汇总数据，大概3~5秒（若数据多，时间稍长，待屏幕不闪动了），就完成
2.4 关闭代码窗口，看看是不是有数据了？
2.5 若以后还想使用本工作簿，在另存的时候，记得要保存成 "启用宏的工作簿.xlsm"
附代码如下：
直接复制下面的的代码，就可以了
Sub 合并多个工作簿()
Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet, m&
Set sh = ActiveSheet
MyPath = ThisWorkbook.Path & "\"
MyName = Dir(MyPath & "*.*")
Application.ScreenUpdating = False
Cells.ClearContents
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
With GetObject(MyPath & MyName)
For Each sht In .Sheets
If IsSheetEmpty = IsEmpty(sht.UsedRange) Then
m = m + 1
If m = 1 Then
sht.[a1].CurrentRegion.Copy sh.[a1]
Else
sht.[a1].CurrentRegion.Copy sh.[a65536].End(xlUp).Offset(1)
End If
End If
Next
.Close False
End With
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub相关推荐
- 无力吐槽的自动续费（你被自动续费困扰过吗?）
-
今天因为工作需要，需要在百度文库上下载一篇文章。没办法，确实需要也有必要，只能老老实实的按要求买了个VIP。过去在百度文库上有过类似经历，当时为了写论文买了一个月的VIP，后面也没有太注意，直到第二个...
- 百度文库推出“文源计划”创作者可一键认领文档
-
11月7日，百度文库发布了旨在保护创作者权益的“文源计划”。所谓“文源计划”，即为每一篇文档找到源头，让创作者享受更多的权益。据百度文库总经理李小婉介绍，文源计划分为三部分，分别是版权认证、版权扶持和...
- 有开放大学学号的同学，百度文库高校版可以用了。
-
还在网上找百度文库的下载方式，只要从身边的朋友在读开放大学的，那他（她）的学号就可以登陆到国家开放大学图书馆，还使用百度文库高校版来下载。与百度文库稍有不同，但足够使用了。现转国图链接如下：htt...
- 搜索资源方法推荐（搜索资源的方法）
-
今天msgbox就要教大家如何又快又准的搜到各类资源，第一点，排除干扰百度搜索出来啊经常前排展示它的产品以及百度文库，如何去除呢？很简单，后面输入空格减号百度文库，比如你搜高等数学百度文库很多，只要后...
- 一行代码搞定百度文库VIP功能（2021百度文库vip账号密码共享）
-
百度文库作为大家常用查资料找文档的平台，大多数文档我们都可以直接在百度文库找到，然而百度文库也有让人头痛的时候。好不容易找到一篇合适的文档，当你准备复制的时候他却提示你需要开通VIP才能复制~~~下载...
- 百度文库文档批量上传工具用户说明书
-
百度文库文档批量上传工具用户说明书1、软件主要功能1、批量上传文档到百度文库，支持上传到收费、VIP专享、优享以及共享。2、支持自动分类和自动获取标签3、支持多用户切换，一个账户传满可以切换到...
- 百度文库现在都看不到文档是否上传成功，要凉了吗?
-
打开知识店铺，百度文库文档里显示都是下载这一按键，上传的文档也看不到是否成功？咋情况，要取消了吗？没通过审核的也不让你删除，是几个意思，想通吃吗？现在百度上传文档也很费劲，有时弄了半天的资料上传审核过...
- 微信推广引流108式:利用百度文库长期分享软文引流
-
百度文库相对于百度知道、百度百科来说，操作上没那么多条条框框，规则上也相对好把握些。做一条百度知道所花费的精力一般都会比做一条百度文库的要多些，老马个人操作下来觉得百度文库更好把握。但见仁见智吧，今天...
- 职场“避雷”指南 百度文库推出标准化劳动合同范本
-
轰轰烈烈的毕业季结束了，众多应届生在经过了“职场海选”后，已正式成为职场生力军的一员。这一阶段，除了熟悉业务，签订劳动合同、了解职场福利也迅速被提上日程。而随着国人法律意识的增强，百度文库内《劳动合同...
- 《百度文库》:素材精选宝库（百度文库官网首页）
-
《百度文库》：独特功能助力选择高质量素材在当今信息爆炸的时代，如何高效地获取并利用有价值的素材成为了许多人面临的挑战。而《百度文库》作为百度公司推出的一款在线文档分享平台，凭借其丰富的资源、强大的功能...
- 深度整合和开放AI能力 百度文库和网盘推出内容操作系统「沧舟OS」
-
【TechWeb】4月25日消息，Create2025百度AI开发者大会上，百度文库和百度网盘推出全球首个内容操作系统——沧舟OS。基于沧舟OS,百度文库APP全新上线「GenFlow超能搭子」...
- 女子发现大二作业被百度文库要求付费下载，律师:平台侵权，应赔偿
-
近日，28岁的黎女士在百度百科搜索家乡的小地名时，发现了自己在大二完成的课题作业。她继续搜索，发现多个平台收录了该文，比如豆丁网和文档之家等，有的还设置了付费或积分下载。2月15日，九派新闻记者以用户...
- 2016杀入百度文库的新捷径，只有少数人才知道的喔
-
百度的产品在SEO优化中的分量真不用多说，其实很多人都像我一样一直在找捷径。但是我经常发现很多人都是在用死方法。比如发贴吧发帖而不知道去申请一个吧主，知道自问自答而不知道去申请一个合作资格。口碑和贴吧...
- 百度文库付费文档搜索方法（百度文库付费文档搜索方法有哪些）
-
一直以来，百度文库中无论是个人中心还是个人主页，都没有像淘宝一样的店内搜索功能，连最近新开的知识店铺也没有设计店内搜索功能，这无论是对上传用户还是下载用户都不方便，上传用户想要搜索自己的文档无法办到...
- 供读者免费使用!泰达图书馆机构版百度文库新年上新啦
-
在泰达图书馆读者使用百度文库数字资源不需要VIP，免-费-用！惊不惊喜？快来了解一下吧……新年伊始，为满足区域企业、高校、科研院所以及居民群众在教学、科研及学习过程中，对各类文献资源的需求，泰达图书馆...
欢迎 你 发表评论:
- 一周热门
- 最近发表
- 标签列表
-
- 如何绘制折线图 (52)
- javaabstract (48)
- 新浪微博头像 (53)
- grub4dos (66)
- s扫描器 (51)
- httpfile dll (48)
- ps实例教程 (55)
- taskmgr (51)
- s spline (61)
- vnc远程控制 (47)
- 数据丢失 (47)
- wbem (57)
- flac文件 (72)
- 网页制作基础教程 (53)
- 镜像文件刻录 (61)
- ug5 0软件免费下载 (78)
- debian下载 (53)
- ubuntu10 04 (60)
- web qq登录 (59)
- 笔记本变成无线路由 (52)
- flash player 11 4 (50)
- 右键菜单清理 (78)
- cuteftp 注册码 (57)
- ospf协议 (53)
- ms17 010 下载 (60)