利用VBA将excel多个工作表数据快速合并到一个工作表方法
发布时间：2023-01-14 13:59:46
下面小编为大家详细介绍利用VBA将excel多个工作表数据快速合并到一个工作表方法，教程很不错，也不是很难，推荐过来，大家一起来学习吧
利用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多个工作表数据快速合并到一个工作表方法介绍，希望能对大家有所帮助！
0
投稿猜你喜欢
win10系统的文件夹选项在哪里打开呢？很多用户对此还不是很清楚，小编这里就给大家带来有关win10系统的文件夹选项在哪里打开的回答，希望能- 首先选定需要调整宽度的单元格单击word中的开始菜单，选择段落对话框在间距中把段前、段后的均设为0行，然后单击确定设置以后，我们再来拖动单元
- Win10找不到msvcp100.dll文件怎么办？msvcp100.dll文件是运行许多程序的重要软件！最近很多用户遇到了msvcp100
- office2007是否激活最直观的就是，在你打开任意office2007组件的时候是否会弹出“Microsoft Office激活向导”窗
- 1、文件上右键 ----打开方式----选择程序----找到excel----左下角选择总使用 2、打开“360安全浏览器”-“
- 从网上下载了很多word资料，里面居然都有水印，汗，看着尤其不爽啊。查了以下，去掉水印的方法还真不少，现在整理下出来，希望对使用word20
- 在Word2007中，可以使用自定义图片作为文档的背景，还可以为文档套用符合主题的图片作为背景，不仅让文档看起来与众不同，更能展现图片文档包
- 1.首先，在iphone上分别下载和安装QQ以及Microsoft office mobile（或者类似的office应用），安装后如图。2
- 今天我们继续聊一聊几种常见的表格处理难题及其解决方法，下面我们就一起来看看吧！01表格中文字行间距的困惑小编在一次项目申报的过程中，需要填写
- 不完全显示的故障分析：极有可能是段落之间的间距被国定设置，导致表格插入显示不全的情况。调整段落的间距， 右键插入图表的那行，选择段落; &n
- 今天小编打开word文档，我打开之后发现页码是乱的，到第6页之后应该第7页，可是它又变成了第1页。那怎么办?下面给大家分享Word文档不连续
- 此前，我们退出微信群聊后，相应的聊天记录也会删除，无法再次查看，更新至iOS微信8.0.29正式版后，微信退群可支持保存聊天记录了。升级iO
- 1.打开Word文档，选中需要快速移动的文字内容，接着点击键盘里的“F2”，这个时候文档的左下方会出现“移至何处?”的提醒。
- 智能文档设计用于在您使用文档时为您提供帮助。几种文档类型，如窗体和模板，也作为智能文档使用。贯穿某个过程使用时，智能文档尤其有效。例如，贵公
- word环境中找到【绘图】工具栏。有两种方式：一、在菜单栏中点击【视图】下拉菜单中选择【工具栏】内选择【绘图】前面打钩；二、word编辑页面
- 升级完Win10专业版的系统用户桌面壁纸基本上都是默认的，在看到那桌面壁纸之后都感觉不太美观，索然无味，那么何不换上自己喜欢的动态桌面壁纸解
- 在 iOS 13 以及以往的系统当中，iPhone 虽然有自带隐藏相册的功能，但显得相当“鸡肋”，这个隐藏相册不但不能设置密码，还可能被任何
- Word中如何添加下划线？Word下划线在实际中很常用，不少伙伴使用下划线也遇到不少问题，有的下划线添加不了，下面就给大家分享Word如何添
- 相信小伙伴们对word文档这款软件都比较熟悉，在其中我们可以对文字进行一些专业化的编辑和处理。在Word文档中我们可以根据自己的实际需要为文
- 我们用word文档有时候需要一张纸编辑或者打印两个word页面，这就要设置双页视图或者页面，如何设置word的双页视图。今天，小编就教大家在
