当前位置：首页 > 科技 > 正文

利用VBA代码快速合并多个工作簿到一个工作簿

说明：对于“工作簿”与“工作表”你是如何理解呢？为便于理解我们用书来形容！“工作簿”是一本书，“工作表”是书中的页。一本书里有很多页，工作簿里有很多个工作表。本例是讲关于工作簿的合并。在实际工作中用得比较多，省时省力是最主要的。效果非常明显！

第一步 新建一个文件夹用于放置要整合的工作簿，然后新建一个工作表，命名为“合并”

第二步 打开“合并“工作簿后，打开【开发工具】-选择【visual basic】

第三步 将代码复制进模块中，不用修改，也不需要理解，会用就可以。关于VBA代码知识自已另外学习吧！

Sub 合并工作薄()

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")

X = 1

While X <= UBound(FileOpen)

Workbooks.Open Filename:=FileOpen(X)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X = X + 1

Wend

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

errhadler:

MsgBox Err.Description

End Sub

双击进入模块中，将代码

第四步 点保存。点是代表只能这一次，下回打开表是没有这些代码的，想要保留代码就要把文件保存为另一种支持宏的文件。宏方面的知识这里不多说。本例选择“是“

第五步 点【运行】并选择【运行子过程/用户窗体】，最快是按快捷键F5

跳出下面的窗口点运行

第六步 根据实际需求，通过浏览窗口找到要合并的工作簿，可配合Ctrl键和Shift键选择需要合并的工作簿，选择后打【打开】。工作簿数量多的话就要等一小会，假如用手工打开复制再粘贴的话就不是一小会了可能是几个小时，也可能是天来计算。电脑配置好就会快些。本例只选择表一、表二、表三。

第八步 合并后效果如下图。

第九步 表一、表二、表三工作簿都合并到合并工作簿中，3个工作簿中都包含有2个工作表，都已经合并了，也就是说支持的工作簿，这个工作簿可以包含多个表。合并后，同一个工作簿的表是拓在一起的，至于工作簿的先后排序如何来设置有待研究。这个操作完之后就可以考虑多表合并的问题，我也做有例子供大家分享，共同学习。

你可能想看：

VBA常用小代码102：批量合并相同值单元格

我们今天分享的VBA小代码内容是批量合并相同值的单列单元格，需要将相同的班级单元格修改为合并单元格……：'用户选择数据列，'intersect语句避免用户选择整列造成无谓运算,Application....

Excel VBA 7.19 Excel跨工作薄多工作表数据合并之Excel表格多行表头

所以我们今天针对多行表头的数据汇总来分析下方法场景模拟假设我们要统计的Excel中每个表格都有表头，1) End If Next sth End If ActiveWorkbook.Close Fal...

VB中一个服务器和多个客户端的程序

VBA常用小代码103：实现去重且自动显示列表的数据有效性

我们今天聊的内容是单元格的数据有效性（2010版本后更名为数据验证）：如何创建去除重复项后的下拉列表，在表格的A列创建去除重复人名后的数据验证下拉列表：'如果选择的单元格不存在于A列,Cells(Ro...

加工中心常用G代码和M代码大全，收藏好了！

G11--程式参数输入取消（部分机床）G16--极坐标指令有效（部分机床）G36--特别固定循环（圆弧）G45--刀具位置设定（扩张）G46--刀具位置设定（缩小）G48--刀具位置设定（减半）G53...

如何快速制作一个工作表目录索引

2、在第一个工作表上点击鼠标右键。然后重命名为【索引目录】。3、点击选中【索引目录】工作表中的B1单元格，然后点击菜单【公式】中的定义名称,4、在弹出的定义名称窗口中输入名称【索引目录】;然后在引用位...

自制血脉通治疗冠心病伴双下肢水肿32例临床观察分析+美味当良药 治疗高血脂合并冠心病+速效救心丸治疗冠心病可弥补西药不足+美味当良药 治疗高血脂合并冠心病

自制血脉通治疗冠心病伴双下肢水肿32例临床观察分析：采用中医活血化瘀兼利水法与地奥心血康对照治疗冠心病伴 双下肢水肿的临床观察：将56例冠心病伴双下肢水肿患者“治疗明显减少复发。

你会跨工作簿统计吗？

而VLOOKUP、SUMPRODUCT函数就支持，函数语法:=SUMPRODUCT((条件区域=条件)*求和区域)!我们重新看一下出错的单元格:\Users\chenxilu\Desktop\[跨工作...

打开工作簿时Excel总是提示包含无法更新的链接？

Excel默认会弹出一个对话框提示，每次打开包含链接的工作簿并单击。工作簿中包含了错误的链接而无法更新，这时可以从下面的几个方面查找这些错误的链接：一、工作表中包含错误的链接，源工作簿或其中某个被引用...

工作中，掌握这九个工作技巧，效率不再低

快节凑高效率已经成了每个职场人的工作标配。想要提高自己的工作效率，下面小编就来为大家分享九个工作技巧，很多事情往往都喜欢拖到最后一刻才去做，有些人不懂得合理安排自己的时间。努力和收获往往存在着不等的关...

如何在工作中，找到一个长期目标

个目标可能是跟公司匹配的“或多或少都处在没有找到目标的焦虑中，没有谁天生一进入职场就能找到自己的长期目标，寻找长期目标更像是为了终结挫败感，其实大多数人都可以从工作中各式各样的位置找到长期目标，价值的...

在职场，真正的“蠢人”，往往有一个工作上的坏习惯，你中招没

往往有一个工作上的坏习惯，觉得这个任务很好完成，觉得工作太多了、工作任务太重了，同事沟通不顺、相互推脱责任，这些都只是因为你从最开始将工作一拖再拖而造成的；客户竟然没来提货，客户说会尽快来拿，第二天领...

一个家庭走向衰败的二个暗示，碰到一个，也要警惕了

肯定都是希望家庭能够和谐并且稳定的发展，很多家庭都在生活之中慢慢的走向衰败，导致一个完整的家庭瞬间分崩离析。那么为了避免出现家庭的衰败，其实一个家庭走向衰败的因素有很多，但是如果出现这两个暗示就代表着...

一部好的小说一定会塑造出令人难忘的一个或多个典型人物形象

里面的人物有不同的境界，因为人物的任何其他方面都是为这个人物的思想服务的，一部好的小说一定会塑造出令人难忘的一个或多个典型人物形象，那么为什么读完有些人的作品我们只能记住很少的一两个人，那么一部长篇小...

合并超多工作表的完美解法

然后打开它初阶汇总数据→新建查询→从文件→从工作簿→选中需要汇总的表→导入，把需要汇总的表都勾上，进入Power Query编辑器点击”→组合→将查询追加为新查询→三个或更多表→双击需要汇总的表格→确...

2014年最好的十个工作

数学、技术、工等都排名居前。环境、收入、前景、压力：包括工资、就业前景、工作环境、物理环境等，工作环境、收入、前景、压力都排名靠前。包括能源、交通和IT等都离不开数学。工作环境排第一、压力较小：新iP...

「麦肯锡精英的48个工作习惯」26页PPT完整版

——这份资料名叫《麦肯锡精英的48个工作习惯》，世界精英们反复累积的成功要素。作者回顾了自己在高盛、麦肯锡、哈佛商学院的工作和求学经历,分享了在高盛集团、哈佛学院、麦肯锡咨询公司学到的工作成功要素经验...

985硕士应聘豪门家政背后：不是哪个工作不挣钱，是你不值钱

终于琢磨出了往瓶里丢石子的方法，很多网友也看不过去这样的选择，越来越多的高学历人才进入普通基层职业“他还去考了整理师和私人管家的国家认证证书。就这些已经超越行业内的大部分家政了，这些工作内容某种程度上...

《人生感悟荟萃：遇到一个好的爱人是一种恩赐，可以减轻一半的人间疾苦》

遇到一个好的爱人，只有真正喜欢你的人，才会打心眼里觉得你特别好，你会变得自信有底气。好的爱情是你通过一个人看到整个世界，坏的爱情是你为了一个人舍弃世界。有些人有些事有些爱，就注定要羁绊一生，外貌决定有...

《人生感悟荟萃：遇到一个喜欢的人其实不难，很多爱情都开始于喜欢结束于了解》

生命里往往需要感恩的就是教会你爱情的那个人，但感悟到这份难过时，那缘份早已成为下辈子再次相见的承诺了。爱有离别，有些爱感动着，有些人永远都不会懂得有些事的无奈，有些话的重要有些爱的沉重。年轻女孩因为物...

你会选品吗？教你如何找到一个暴利产品

教你如何找到一个暴利产品，没有产品就算你把营销玩出各种花样来也卖不动，所以选择产品非常重要，找到暴利产品的秘诀：假如说你选择的细分市场是儿童近视治疗，把你找到的几个关键词依次输入，关注那些做竞价推广的...

又想到一个对账新方法，这也太好用了吧

对账借助WPS表格，1.标记重复（唯一）数据将两列姓名重复的用填充色表示。选择A列的区域，标识重复数据，再选择C列的区域，这个相当于Excel里面的条件格式，突出显示单元格规则，WPS表格的这个新功能...

失去挚爱后，他与600多个女人放纵一生：为何男人总忘不了初恋？

本期主播丨杨枪枪为什么男人总是忘不了初恋？为什么男人不肯丢掉初恋送的礼物？男人总爱拿初恋做比较？不然影视剧中怎么都营造男人的纯情人设呢……《情深深雨蒙蒙》中陆振华忘不了初恋萍萍，男人忘不了初恋背后。也...

治疗各种心脏病、脑动脉硬化、脑血栓、脑梗塞等多个中医特效验方（通血路方）

花旗参100g三七150g水蛭100g野生天麻100g地龙100g 紫丹参150g川芎100g生山楂100g灯盏花100g藏红花30g，如果作为预防服用，可预防冠心病：中风的发生，益气化瘀。溶栓通脉主...

一百多个趣味运动会项目

参赛队员站在木板鞋上，以船尾到达终点线为比赛结束:前面队员抱住后面的队员右腿，后面队员左手搭在前面队员的肩上，队员们单脚向前跳跃前进:以排尾跳过终点线为比赛结束，二人迅速侧身向前跑:绕过标志物跑回将球...

白俄罗斯的前世今生：白俄罗斯是个怎样的国家？和俄罗斯有什么关系？为何多个“白”字？

白俄罗斯与现在的俄罗斯人和乌克兰人一起并入基辅罗斯，白俄罗斯长期处于立陶宛、波兰及俄国的影响及争夺之下。18世纪末白俄罗斯并入俄国，白俄罗斯又被德国军队占领。历史上与波兰、立陶宛、乌克兰、俄罗斯渊源很...

VBA遍历所有文件夹的两种方法（filesearch和FileSystemObject）

另外一种是使用FileSystemObject(windows文件管理工具)和递归方法。

工作簿工作gif合并表

上一篇
Excel中的 Ctrl+G 你会用吗？

下一篇
路由器上贴个创可贴，太方便了，信号增强网络快，用了都夸好

有话要说...

最新文章

取消
扫码支持 支付码