利用VBA将excel多个工作表数据快速合并到一个工作表方法
互联网 & 发布时间： 09:58:05 & 作者：佚名 &
下面小编为大家详细介绍利用VBA将excel多个工作表数据快速合并到一个工作表方法，教程很不错，也不是很难，推荐过来，大家一起来学习吧
&利用VBA将数据区域不定的多个工作表数据快速合并到一个工作表方法。有需要的朋友可以跟着教程一起来学习！
软件名称：Excel2007 绿色版精简免费[58MB] 软件大小：58MB更新时间：
&分别有工作表1、2、3数据区域如下图所示：
&按ALT+F11打开VBE编辑器，在工程窗口下的Microsoft Excel对象右键-插入-模块，新建一个模块1。
&输入如下代码：
代码如下:Option ExplicitSub hbgzb()Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer&/p&
flag = FalseFor i = 1 To Sheets.Count If Sheets(i).Name = "合并数据" Then flag = TrueNextIf flag = False ThenSet sh = Worksheets.Addsh.Name = "合并数据"Sheets("合并数据").Move after:=Sheets(Sheets.Count)End IfFor i = 1 To Sheets.CountIf Sheets(i).Name && "合并数据" Then hrow = Sheets("合并数据").UsedRange.Row hrowc = Sheets("合并数据").UsedRange.Rows.Count If hrowc = 1 Then
Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow, 1).End(xlUp)
Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow + hrowc - 1, 1).Offset(1, 0)
End IfEnd IfNext iEnd Sub
&按ALT+F8打开宏对话框窗口，鼠标单击执行hbgzb宏。
&实现如图所示效果：
本段VBA代码由于将编辑过的区域作为源数据区域，顾无论该数据源有无数据，只要曾经编辑过皆做为源数据源，做拷贝处理。
以上就是利用VBA将excel多个工作表数据快速合并到一个工作表方法介绍，希望能对大家有所帮助！
大家感兴趣的内容
12345678910
最近更新的内容vba吧-百度贴吧
签到排名：今日本吧第个签到，
本吧因你更精彩，明天继续来努力！
本吧排名：
本吧签到人数：28
可签7级以上的吧50个
本月漏签0次！
成为超级会员，赠送8张补签卡
连续签到：天&&累计签到：天
超级会员单次开通12个月以上，赠送连续签到卡3张
各位吧友，虚心求教： 现在每天有2、300个WORD的订单，每天都是通过人工复制到EXCEL表中，可不可以把WORD
需求：将指定目录下包含某字段的文件名里的内容复制到当前Excel表，目录为一个参数，字段为一个参数。
怎么读取同文件夹下的工作簿到工作表1，在工作表运行处理完数据后，继续读取下一个工作簿，继续处理
【调研】在学习VBA中大家都遇到哪些问题？
问下各路大神dir函数读取长度是不是有限制
一道简单题，文科生被逼死 编写求一元二次方程ax2+bx+c=0解的程序，其中，a,b,c为任意实数。(10分) 要求：
各位好！从今天起，本吧一切聊天、灌水、混经验的请此贴！否则一经发现，删除处理！ 本吧的宗旨是
按Alt+F11组合键打开VBA窗口，点击“插入”——“模块”，输入以下代码： Sub 转换格式() Application.DisplayAler
这有工作相关的教材，免费学习，Excel VBA，感兴趣的一起来议讨学习
他的课程我除了自动化这个没看，其他都看了，花钱看的，但是这个太贵了，犹豫了很久还是不想买，谁
需要开发一个从excel文件中读取数据然后填写在cs架构软件中对应表格的填充软件，功能分为两大模块：1、
大佬们，小杂鱼来求助了。。。大佬们有木有现成的把EXCEL多个工作表（就是Sheet页）同一块已经被我选定
寻求VBA高人帮助，想把一个文件夹里的N个工作薄的内容合并到一个里面，之前在网上找个很多代码，但是
内容详见 http://tieba.baidu.com/p/
WPS的vba插件有吗，求助
初来乍到的编程初学者，都抱着一个伟大的理想，立志要用代码来改变这个低效率的世界，然而现实是极
初学者，请问语句前面的“？”是什么意思
大神们，vba该如何学习，买了本书，看了一半了，依旧很懵
国有国法，吧有吧规！ 有了规矩，才成方圆！同时也是为了本吧的正常交流、发展、服务广大VBA 受众，故
每个表格的H列的单元格的公式如公示栏所示，现在需要的是把引用的sheet名称改为上一个sheet的名称，如图
对于各财务人员和总公司的管理人员来说，经常会碰到这样那样的汇总工作。 比如各个分公司的财务数据
求大神帮忙
当莫晨曦从监狱里走出来的时候，迎面便扑上来了个五六岁的小姑娘。
手里有一个用VBA编程的能量分析小软件，本人非编程出身，看到代码一脸懵逼，但是需要在代码后面备注
我用录制宏，录制不出来。。。什么鬼。 求帮忙写一句，设置当前底纹为红色
各位大神，求教一个问题，怎么用VBA把 2.XLSX.sheet1中的A1：A15自动复制到1.XLSX.sheet1的A1：A15
求教！在excel中如何实现用户复制单元格后触发一个sub或者事件？我需要再复制后得到用户复制的单元格信
求助! 如何对照片实现批量旋转和调整大小?女神镇楼
有表1表2，实现表1中插入一条数据（包含月份和日期）然后去表2中找。如果表2中数据存在则修改。不存在
求助！！excel表格输出成txt文档后，输出2-16列4-8行数据，如何将每行以第八列为界限分成两行
有偿求助excel中的vba问题
为什么我用 For Each shp In .ActiveDocument.Shapes 这句老显示类型不匹配
求助！！！！！将excel文件sheet2(SP)表格中第四行到第八行，第二列到第十六列的内容输出成一个txt文件，
如题 出于热爱VBA，也不是什么大神。 平日时间较少，最好周末。
当xlsm文件保存时，如何自动保存一份不含宏的xlsx文件，如果同名则覆盖
怎么启用？
现在的问题是我想在SHEET5中禁用所有宏 我想设置工作表事件当sheet5激活时禁用所有宏 但是好像没有这样直
我是新手，想请问一下。 Excel的单元格中，例如我想输入一下内容：“，收到样品100台” 其中日期 2
求助帖，有没有大佬精通VBA二次开发AutoCAD的
首先本人excel水平还没到懂vba的地步 有个需求就是，excel工作簿除了第一页以外，其它的sheet都要隐藏，但
一个文件夹里有几十个excel工作簿，每个工作簿里面都只有sheet1有数据 如图片所示，怎么用VBA快速把所有
比如我选中了几个不相邻的单元格 给第一个里面写1，第二个写2 cells(1)没任何问题 cells(2)就不是我选中的
红框这窗体，怎么调成用窗口模式显示？
系统:win 7 Excel版本: 2016 窗体是寄生于a.xlsm文件的，窗体中的代码打开了b.xlsx文，关闭b.xlsx文件时，窗体也
我想编写一个解线性规划的函数，假设b=a^2(1+a+a^2) c为b的目标值 a,b,c 都是单元格 程序如下 Function rct(a, b, c) Dim o, p, q, r, s o = a.Row()
你可能感兴趣的吧...
发贴红色标题
签到六倍经验
兑换本吧会员
赠送补签卡1张，获得
助攻总额: 43W
贴吧热议榜
发表后自动分享本贴
使用签名档&VBA代码，如何按条件跳转到另一个工作表中？_百度知道
VBA代码，如何按条件跳转到另一个工作表中？
我想做一个宏，要求如下，VBA代码怎么写呀！在Sheet1中，单击一个自选图形后，如果Sheet2是隐藏的，就取消隐藏并跳转到Sheet2!A1单元格内，如果Sheet2不是隐藏的就直接跳转到Sheet2!A1单元格内。
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
　　比如　　Sub ActionSht()
Worksheets(2).Visible = xlSheetVisible
Sheets(2).Select
Range(&a1&).SelectEnd Sub
采纳率：91%
来自团队：
Sub aa()With Worksheets(&sheet2&)
.Visible = True
.Range(&a1&).SelectEnd WithEnd Sub----------将自选图形的宏指定为上面的aa宏
本回答被提问者采纳
为您推荐：
其他类似问题
您可能关注的内容
vba的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。某个单元格的值人工输入，其它单元格的值根据另一个工作表中的这个单元格的值自动填充
[问题点数：40分]
本版专家分：11
结帖率 96.97%
CSDN今日推荐
本版专家分：13887
2016年3月 VB大版内专家分月排行榜第一2015年1月 VB大版内专家分月排行榜第一2014年12月 VB大版内专家分月排行榜第一
2015年4月 VB大版内专家分月排行榜第二2015年3月 VB大版内专家分月排行榜第二2014年11月 VB大版内专家分月排行榜第二2014年10月 VB大版内专家分月排行榜第二
2014年4月 VB大版内专家分月排行榜第三
本版专家分：11
本版专家分：13887
2016年3月 VB大版内专家分月排行榜第一2015年1月 VB大版内专家分月排行榜第一2014年12月 VB大版内专家分月排行榜第一
2015年4月 VB大版内专家分月排行榜第二2015年3月 VB大版内专家分月排行榜第二2014年11月 VB大版内专家分月排行榜第二2014年10月 VB大版内专家分月排行榜第二
2014年4月 VB大版内专家分月排行榜第三
本版专家分：52333
2018年6月 VB大版内专家分月排行榜第一2018年5月 VB大版内专家分月排行榜第一2018年4月 VB大版内专家分月排行榜第一2018年3月 VB大版内专家分月排行榜第一2018年2月 VB大版内专家分月排行榜第一2018年1月 VB大版内专家分月排行榜第一2017年9月 VB大版内专家分月排行榜第一2017年8月 VB大版内专家分月排行榜第一2017年7月 VB大版内专家分月排行榜第一2017年6月 VB大版内专家分月排行榜第一2017年5月 VB大版内专家分月排行榜第一2017年4月 VB大版内专家分月排行榜第一2016年11月 VB大版内专家分月排行榜第一2016年8月 VB大版内专家分月排行榜第一2016年7月 VB大版内专家分月排行榜第一2013年12月 VB大版内专家分月排行榜第一2013年10月 VB大版内专家分月排行榜第一2013年9月 VB大版内专家分月排行榜第一2008年5月 VB大版内专家分月排行榜第一
2017年12月 VB大版内专家分月排行榜第二2017年11月 VB大版内专家分月排行榜第二2017年3月 VB大版内专家分月排行榜第二2016年12月 VB大版内专家分月排行榜第二2016年10月 VB大版内专家分月排行榜第二2013年11月 VB大版内专家分月排行榜第二
2016年3月 VB大版内专家分月排行榜第三2012年9月 VB大版内专家分月排行榜第三
本版专家分：52333
2018年6月 VB大版内专家分月排行榜第一2018年5月 VB大版内专家分月排行榜第一2018年4月 VB大版内专家分月排行榜第一2018年3月 VB大版内专家分月排行榜第一2018年2月 VB大版内专家分月排行榜第一2018年1月 VB大版内专家分月排行榜第一2017年9月 VB大版内专家分月排行榜第一2017年8月 VB大版内专家分月排行榜第一2017年7月 VB大版内专家分月排行榜第一2017年6月 VB大版内专家分月排行榜第一2017年5月 VB大版内专家分月排行榜第一2017年4月 VB大版内专家分月排行榜第一2016年11月 VB大版内专家分月排行榜第一2016年8月 VB大版内专家分月排行榜第一2016年7月 VB大版内专家分月排行榜第一2013年12月 VB大版内专家分月排行榜第一2013年10月 VB大版内专家分月排行榜第一2013年9月 VB大版内专家分月排行榜第一2008年5月 VB大版内专家分月排行榜第一
2017年12月 VB大版内专家分月排行榜第二2017年11月 VB大版内专家分月排行榜第二2017年3月 VB大版内专家分月排行榜第二2016年12月 VB大版内专家分月排行榜第二2016年10月 VB大版内专家分月排行榜第二2013年11月 VB大版内专家分月排行榜第二
2016年3月 VB大版内专家分月排行榜第三2012年9月 VB大版内专家分月排行榜第三
本版专家分：11
匿名用户不能发表回复！|
其他相关推荐多个Excel工作簿中特定内容汇总到一个工作表 | VBA实例教程
我的图书馆
多个Excel工作簿中特定内容汇总到一个工作表 | VBA实例教程
除非注明，文章均为原创，转载请保留链接: ，VBA交流群。
相信学了上一篇“”朋友们对汇总有了初步的认识，（1）中我们讲的是将整个表中的内容都汇总到一个表中，这次我们看下如何汇总表中的特定内容而不是全部内容。其实这个也很简单，只是让大家熟悉一下汇总的过程，上次我们选择的是全部的内容，这次只要选择特定单元格就可以了。
看例子。假设你是个理财公司的统计人员，公司有四种产品，每个营业部都有好几个团队，分部行政人员会每天给你发各营业部各团明细，你呢只需要汇总各个营业部的业绩上报，即你只需要汇总每个表的最后一行，但是最后一行到底是哪行又是不确定的，大家可以自己先下载示例自己试一下。下面上代码
Sub test()Dim mypath, myfile, wb, i, jRange("A1").CurrentRegion.Offset(1, 0).ClearContents& '开始提取之前清除除表头之外的内容mypath = ThisWorkbook.Path & "\"&&&&&&&& '找到当前工作簿的路径myfile = Dir(mypath & "*.xlsx")&&&&&&&&& '遍历当前路径下的工作簿Do While myfile && ""&&&&&&&&&&&&&&&&&&& '当找到的文件不为空时If myfile && ThisWorkbook.Name Then&& '当找到的文件不是本工作簿时Set wb = GetObject(mypath & myfile) '利用GetObject取得数据With wb.Sheets(1)&&&&&&&&&&&&&&&&&& '对wb的sheet1进行操作i = .[a1048576].End(xlUp).Row&&& '得到wb的最后一行j = [a1048576].End(xlUp).Row + 1 '得到当前工作表的最后一行Range("A" & j) = .Range("A1")&&& '开始赋值了Range("B" & j) = .Range("B" & i)Range("C" & j) = .Range("C" & i)Range("D" & j) = .Range("D" & i)Range("E" & j) = .Range("E" & i)Range("F" & j) = .Range("F" & i)End Withwb.Close&&&&&&&&&&&&&&&&&& '别忘了关掉，要不然越开越多电脑就瘫痪了End Ifmyfile = Dir&&&&&&&&&&&&&&&&& '去找下一个工作簿LoopEnd Sub
汇总的表要和那些明细表放同一个文件夹下，这样就可以用mypath = ThisWorkbook.Path & "\" 取得文件夹的路径了,i和j分别是取到明细表和汇总表的最后一行，End属性不明白的可以百度一下。提醒新手朋友们，在看代码的时候会有一些看不明白的地方，我也不可以面面俱到的都讲，其实只要百度一下很多问题都可以明白了，有问题先自己查是一种技能更是一种态度。本文示例文件下载。
您可能也喜欢：
[转]&[转]&
喜欢该文的人也喜欢