汇总几百个工作簿的数据，这方法1分钟就学会，工作1分钟就搞定
cac55 2024-10-07 06:34 17 浏览 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相关推荐
- 终于，你可以在 iPhone 上玩《饥荒》了
-
继七月登陆iPad平台后，冒险生存游戏《饥荒》（Don'tStarve）经过两个月时间终于更新并适配了iPhone，此前我已就游戏在iPad上的表现写过详尽评测和上手攻略，故本文不再对游...
- 2025年最适合Macbook新手掌握的5个免费工具，效率立马飙升!
-
刚入手Macbook是否觉得操作不熟？担心新手期过长难以熟练提高效率？别担心！本文精选五款国区AppStore免费可下载的官方认证工具，所有选择均基于新手核心痛点与迁移成本考量，解决「系统维护」「操作...
- 苹果iOS 13.4和iPadOS 13.4正式更新，支持鼠标、键盘操作
-
智东西（公众号：zhidxcom）编|王颖智东西3月25日消息，苹果今天向用户推送了iOS13.4和iPadOS13.4系统更新通知。iPadOS13.4增加了对iPad鼠标和触控板的支持，...
- 苹果即将发布macOS 15 用户界面将迎来重大革新
-
苹果公司计划于6月举行的全球开发者大会（WWDC）上，震撼发布全新的macOS15操作系统。据CNMO最新报道，此次更新将彻底革新“菜单和应用程序用户界面”的排列方式，为用户带来全新的使用体验。ma...
- **Bartender 5:菜单栏管理神器**（菜单栏工具）
-
提供免费下载网站Mavom.cn**Bartender**让你可以隐藏、重新排列或移动菜单栏应用，保持桌面整洁。**主要功能：*****整理菜单栏应用**：随心所欲地隐藏或显示应用。***更新提醒...
- Mac用户必备!12款最实用的高效App，绝对值得收藏
-
作为一名数码博主，日常的工作不仅包括写文章，还涉及到大量的内容创作、视频编辑和资料管理。随着使用Mac的时间越来越长，我发现一台强大的Mac电脑，若没有合适的App加持，效果往往大打折扣。因此，我深入...
- 苹果电脑死机了按什么键（mac卡死按哪三个键）
-
苹果电脑以其卓越的性能和稳定的系统而闻名，但在使用过程中，偶尔也会遇到死机或应用程序无响应的情况。这时，掌握一些有效的强制重启或关闭方法就显得尤为重要。本文将详细介绍苹果电脑在死机时可以采取的几种处理...
- 怎么查看macbook硬盘是不是原装的
-
要查看MacBook的硬盘是否是原装的，可以采取以下几种方法：###通过系统信息检查1.**查看设备信息**：打开苹果菜单栏中的“关于本机”选项，然后选择“存储”或“磁盘工具”。这将显示你电脑上已...
- 苹果MacBook一定要进行的6个设置|新手必备省电技巧
-
一、MacBook省电设置技巧1、电池偏好设置打开“系统偏好设置”，选择“电池”，选择第二项“电池”，不同的系统版本和机型在这个界面会有所差别。勾选“使用电池电源时使显示屏略暗一些”，勾选“优化电池充...
- 在 Mac 菜单栏也能控制 HomeKit 家居设备
-
想要控制家里的HomeKit设备，我们可以利用Apple官方的家庭App。但在Mac上，家庭App不能算得上好用，不像iOS可以从控制中心直接操作，在Mac上必须打开家庭A...
- 苹果手机里这个图标是什么意思?原来这是个监听器!一直都不知道
-
不知道大家最近都有没有关注iPhone的新消息呢？iPhone11出来之后，不少小伙伴都被圈粉啦！小编不得不说绿色的那款是真好看啊！当然不仅是好看，用过苹果手机的小伙伴都知道，苹果手机里有很多超好用的...
- 如何解决苹果电脑弹出本地项目钥匙串提示?
-
Mac电脑使用的时候，因为通过iCloud同步钥匙串，或者是修改本地账户密码，会反复弹出某项目想要登录使用“钥匙串”的提示，且无法关闭的现象。那我们该如何解决呢？快和小编一起来看看吧！具体方法如下1....
- MAC小技巧:如何快速调整Dock栏的大小
-
苹果mac系统dock栏怎么缩小？想要自己调节一下dock栏的大小，该怎么调节呢？下面我们就来看看详细的苹果Mac电脑如何快速调整Dock栏的大小样式教程，需要的朋友可以参考下。1、在Dock栏右侧，...
- 新买了苹果电脑不会用?给小白的使用手册，MacOS入门必备
-
咱们很多小伙伴都是十几年甚至二十几年的Windows老用户了，如果换成苹果电脑，可能会一脸懵逼，一时间不知道怎么使用。毕竟苹果电脑搭载的是MacOS操作系统，除了系统界面和操作上有区别外，电脑键盘上有...
- 苹果macOS 15设置界面将迎来重大更新 更智能更美观
-
【CNMO科技消息】苹果计划在6月WWDC全球开发者大会上震撼发布macOS15。据CNMO了解，此次更新将彻底革新“菜单和应用程序用户界面”的排列方式。macOSVentura系统中的“系统设置...
欢迎 你 发表评论:
- 一周热门
- 最近发表
- 标签列表
-
- 如何绘制折线图 (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)