如何利用VBA将excel多个工作表数据快速合并到一个工作表上
发布时间：2023-07-25 07:25:35
利用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
投稿猜你喜欢
- Excel中经常需要使用到余弦函数进行计算，余弦函数具体该如何使用呢?下面是由小编分享的excel 余弦函数的使用方法，以供大家阅读和学习。
在安装传统的Win32程序的时候，软件安装界面会有一个指定安装位置的步骤，所以我们可以把软件安装到非系统盘，从而节约系统盘空间。可是在Win- word 2010有时选择页面纸张大小时会发现没有A3的选项这可能是因为word2010当前所选打印机不支持A3，可以点击文件菜单中的&qu
- iPhone用户要想连接电脑都要先在电脑里面下载iTunes应用，只有安装了iTunes应用手机设备才能正常连接电脑，不过有些用户表示，iT
- 有很多的用户们不知道该如何详细的查看自己系统的版本号等，那么怎么样才能够快速的进行版本号的查看呢，今天系统部落为广大用户们介绍两种简单的命令
- SUM函数大概是我们学习excel最先接触到的一个函数。大家使用这个函数的频率是很高的，有些朋友觉得这个函数太熟了，认为自己掌握得差不多了。
- win10怎么取消开机密码登陆？设置电脑开机密码能有效保护我们的电脑隐私安全，但是相应的在登录的时候每次都输入密码会比较麻烦。那么win10
- Win11怎么优化最流畅呢？很多用户安装了Win11的预览版来体验，想要让系统更加流畅就需要对系统进行优化，帮助win11提高运行速度和性能
- 巧用Word模板轻松打造有新年特色月历。2010年新年来临，如果可以自己制作一份月历，应该是非常快乐的一件事情。我们选用大家常用的Word软
- BandiZip是一款小巧轻便且压缩速度非常快的解压缩软件，有着非常强大的功能，用户可以免费使用。那么Bandizip对压缩文件怎么进行加密
- 单元格是 Excel 表格最基础的单元，以长方形形状显示在表格，位于行列交叉处，用列标和行号表示单元格。Excel 表格里的数据都会在单元格
- 刚重装的win7系统没有驱动怎么办？最近有很多小伙伴在使用win7系统的时候，发现刚重装的win7系统没有驱动，不知道怎么去解决。首先右键点
- 很多用户不使用电脑时候，会给电脑设置锁屏，但是有部分想设置锁屏的朋友却不知道win10怎么设置锁屏，其实方法还是很简单，下面小编就给您带来w
- 如何让Win10每天夜间自动开启深色模式，其实操作方法很简单，今天小编就为大家带来了详细教程，一起看看吧正如大家所知道的，当在夜间使用Win
- frameworkservic.exe是一个未经确认的进程，如果有相关信息，请告知xiaotd@gmail.com进程文件： framewo
- 当我们用word写文档的时候，往往要一条一条地输入条款，1，2，3，4，5……这时我们多么希望word能自动输入编号啊，我们只要在编号后面输
- 咱们在 操纵WPS表格与Excel表格 停止 一样平常办公时， 常常 需求 编纂 林林总总的数据，当 咱们想要给原始数据 增长一个 牢固的数
- 对重装电脑不清楚的用户需要重装系统的时候虽然可以找到重装系统的方法，但是完全不知道电脑应该要重装系统好还是格式化就能够解决问题，也不知道重装
- 为了发挥excel强大功能 ,提高办公自动化的效率 ,多掌握一些excel的操作技巧 ,可达到事倍功半的效果;在Excel工作表中插入剪贴画
- 早上打开电脑准备工作，然后打开qq突然出现：initialization failure:ox0000000c，然后打开浏览器发现网页也无法
