如何利用VBA将excel多个工作表数据快速合并到一个工作表VBA合并工作表方法
利用VBA将数据区域不定的多个工作表数据快速合并到一个工作表方法。有需要的朋友可以跟着教程一起来学习!
方法/步骤
分别有工作表1、2、3数据区域:
按ALT+F11打开VBE编辑器,在工程窗口下的Microsoft Excel对象右键-插入-模块,新建一个模块1。
输入如下代码:
复制代码
代码如下:
Option Explicit
Sub hbgzb()
Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer
flag = False
For i = 1 To Sheets.Count
If Sheets(i).Name = "合并数据" Then flag = True
Next
If flag = False Then
Set sh = Worksheets.Add
sh.Name = "合并数据"
Sheets("合并数据").Move after:=Sheets(Sheets.Count)
End If
For i = 1 To Sheets.Count
If 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)
Else
Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow + hrowc - 1, 1).Offset(1, 0)
End If
End If
Next i
End Sub
按ALT+F8打开宏对话框窗口,鼠标单击执行hbgzb宏。
实现效果:
注意事项
本段VBA代码由于将编辑过的区域作为源数据区域,顾无论该数据源有无数据,只要曾经编辑过皆做为源数据源,做拷贝处理。
以上就是利用VBA将excel多个工作表数据快速合并到一个工作表方法介绍,希望能对大家有所帮助!
三星UA40ES6100支持历史记录浏览吗三星UA40ES6100不支持历史记录浏览。三星LEDES6100系列精致的外观设计,将为用户的家居生活增添一份华贵。三星优雅的窄边框设计,极大提升画面临场感,为用户带来呼之欲出的
三星es7000怎么样三星es7000全面评测详解三星旗下也有很多的子品牌,例如手机,电视机,家用电器,笔记本等等,外资品牌中国主推的就是智能电视,今天小编就是要给大家介绍的是这款三星es7000智能电视,在比较早的时候三星也有推
三星UA46ES5500支持Wifi直连吗三星UA46ES5500支持Wifi直连。三星ES5500系列全高清LED液晶电视,为用户呈现自然之美。全高清分辨率为用户缔造丰富自然的图像,带给用户巅峰的视觉盛宴。一起进入前所未
三星UA46ES6900支持Wifi直连吗三星UA46ES6900支持Wifi直连。三星纤薄LED液晶电视ES6900是用户家庭的最佳选择。内容精彩APP强大的智能应用中心,集响应快速多任务处理于一身的双核处理器,为用户带
三星UA46ES6800支持3D声音吗三星UA46ES6800不支持3D声音。三星LEDES6800智能电视可以利用AllSharePlay功能与其他兼容设备进行无线连接,播放相应内容。通过安装驱动程序,用户即可在简便
三星UA46ES6700支持3D声音吗三星UA46ES6700不支持3D声音。2012年三星SmartHub进行了优化改善,更清晰直观的操作界面,可帮用户轻松搜索电影电视节目浏览网页下载三星应用程序,用户还可以利用它搜
三星UA46ES5500支持3D声音吗三星UA46ES5500支持3D声音。三星ES5500系列全高清LED液晶电视,为用户呈现自然之美。全高清分辨率为用户缔造丰富自然的图像,带给用户巅峰的视觉盛宴。一起进入前所未有的
三星UA46ES6900支持3D声音吗三星UA46ES6900支持3D音效。三星纤薄LED液晶电视ES6900是用户家庭的最佳选择。内容精彩APP强大的智能应用中心,集响应快速多任务处理于一身的双核处理器,为用户带来超
三星UA46D6600支持3D声音吗三星UA46D6600支持3D声音。三星SmartTV可帮用户轻松欣赏电影电视节目下载三星应用程序。先进的电视应用程序专为用户的三星电视机设计,将让用户畅享各种数字内容资源,包括新
三星UA46ES6800支持社交电视吗三星UA46ES6800支持社交电视。三星LEDES6800智能电视可以利用AllSharePlay功能与其他兼容设备进行无线连接,播放相应内容。通过安装驱动程序,用户即可在简便的
三星UA46ES5500支持社交电视吗三星UA46ES5500支持社交电视。三星ES5500系列全高清LED液晶电视,为用户呈现自然之美。全高清分辨率为用户缔造丰富自然的图像,带给用户巅峰的视觉盛宴。一起进入前所未有的
迅雷游戏中魔域可以攻击NPC吗迅雷游戏中魔域目前玩家只能攻击城镇的守卫NPC,需要切换到自由pk模式,但低等级的时候劝您不要做此尝试。迅雷游戏是迅雷针对广大游戏用户推出的综合网络游戏平台。提供大型网络游戏网页游
迅雷游戏中大冲锋安装过程中出错怎么办迅雷游戏中大冲锋如果在安装过程中出错请您使用MD5值,进行检验您的客户端是否完整,如果不完整请您重新下载客户端,下载的时候,建议您关闭所有的杀毒软件进行迅雷下载。迅雷游戏是迅雷针对
迅雷游戏中魔域随机卷是什么迅雷游戏中魔域可以通过随机卷随机移动到怪物多的地方,这样您就不用满地图找怪了。同时您还可以用这个卷轴来做ldquo捉迷藏rdquo的游戏,如果您有兴趣的话。迅雷游戏是迅雷针对广大游
迅雷游戏中魔域为什么幻兽经验回档迅雷游戏中魔域如果您之前在进化幻兽的时候选择魔兽,魔兽经验达到一半以上的时候有一定的概率经验减半。但是魔兽获得的经验会比正常多很多的,这个是游戏正常的设置。迅雷游戏是迅雷针对广大游
迅雷游戏中大冲锋如何打开聊天功能迅雷游戏中大冲锋回车后即可激活聊天信息输入窗口,按ldquoUrdquo键即可打开组内聊天信息输入窗口。迅雷游戏是迅雷针对广大游戏用户推出的综合网络游戏平台。提供大型网络游戏网页游
迅雷游戏中魔域幻兽亲密度如何培养迅雷游戏中魔域只要连续在线,幻兽亲密度就会慢慢的恢复了。迅雷游戏是迅雷针对广大游戏用户推出的综合网络游戏平台。提供大型网络游戏网页游戏以及游戏辅助工具迅雷游戏盒子游戏论坛交流服务。
迅雷游戏中魔域如何进行跑走的切换迅雷游戏中魔域不需要进行切换。魔域中人物的走与跑都是通过左键来完成,如果你点击的目的地较近人物就会走过去,较远人物就会跑过去。迅雷游戏是迅雷针对广大游戏用户推出的综合网络游戏平台。
迅雷游戏中魔域宝宝亲密度去哪里看迅雷游戏中魔域关于亲密度的查看,您可以查看幻兽界面中幻兽属性栏的红色桃心标记。迅雷游戏是迅雷针对广大游戏用户推出的综合网络游戏平台。提供大型网络游戏网页游戏以及游戏辅助工具迅雷游戏
迅雷游戏中画皮2的装备都怎么获得迅雷游戏中画皮2一个角色最多可以穿16件装备,其中13件常规装备,可以通过任务奖励副本掉落诛妖等方法获得,披风坐骑时装可以通过商城普通任务,帮会任务中获得。迅雷游戏是迅雷针对广大游
迅雷游戏中画皮2的诛妖有什么作用迅雷游戏中画皮2的诛妖分为有三种妖道诛妖魔道诛妖鬼道诛妖,通过诛妖可以得到各种需要的材料,宠物成长丹,至尊的金色套装等。大大提高自身实力。迅雷游戏是迅雷针对广大游戏用户推出的综合网
迅雷游戏中吞食三国龙星的用途是什么迅雷游戏中吞食三国龙星的用途是装备提升星级所需的物品。例如0星10级强化成1星1级或2星10级强化成3星1级时会消耗龙星。迅雷游戏是迅雷针对广大游戏用户推出的综合网络游戏平台。提供