利用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
投稿猜你喜欢
怎么给图片批量编号？在长篇文档中，有大量的图片需要编号，如何实现一键编号呢？下面教你小技巧，快速的给多张图片编号。1、插入题注先选中第一张图- 什么是网络协议？网络协议指的是计算机网络中互相通信的对等实体之间交换信息时所必须遵守的规则的集合，是网络上所有设备（网络服务器、计算机及交换
- 在Win7系统中，我们在执行许多操作后，回到桌面上，我们会习惯地点击右键刷新桌面，但如果桌面刷新时反应很慢，有时甚至需要十几秒，这绝不会是件
- WPS输入的文字怎么制作上下标样式？wps中输入的文字想要将其中的部分做成上下标，该怎么制作呢？下面我们就来看看详细的教程，需要的朋友可以参
- Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。我们在编辑Excel
- Edge浏览器已经有一个新的应用ID，这会导致任何你在之前斯巴达浏览器中保存的收藏内容、cookies、历史记录以及阅读列表项目在升级后丢失
- 8月18日，微软面向快速通道（Fast Ring）的会员推送了新预览版Windows 10 Build 17741，隶属于RedStone
- wps打开提示ksomisc.exe损坏的映像怎么办？很多时候我们在使用WPS时都会遇到一种问题，就是系统提示说kosmisc.exe损坏的
- 微视怎么剪辑视频？发布微视视频的时间是有限制的，有时候视频过长就得对视频进行剪辑，要怎么剪辑呢，下面就给大家分享具体步骤。1、单纯裁剪视频上
- 在处理电子表格的时候,我们经常会碰到8位数字的日期格式,例如20141011,而这样的格式不方便进行年龄计算等操作,那么在Excel中怎么通
- Windows 10手机版10136支持无线打印功能，随着win10手机版bulid 10136的发布，我们终于能够直接通过支持的无线打印机
- m1芯片Mac电脑如何检查是否感染 “银麻雀”病毒？有一款名为“银麻雀”‘Silver Sparrow’ 的病毒在Mac电脑传播，已造成超过
- 在使用表格软件的过程中，表格内容比较多的情况下，为了方便查看内容需要分页预览，下面小编为大家介绍如何使用分页预览。方法/步骤1.打开编辑表格
- WinRAR是一款非常好用的压缩软件，功能十分的强大。很多用户遇到了压缩包错误不知道怎么修复，只要使用WinRAR修复功能就可以轻松解决问题
- Photoshop作为一款修图、制图软件，丰富的滤镜、素材为用户提供诸多便利，它也有很多画笔的图案可以使用，但有时候它提供的画笔图案里没有我
- 对于家里的长辈来说，用电脑最大的难处就是打字，动动鼠标很快就学会了，可是一不会拼音、二不会五笔，打字实在是个大难题。不过幸好手写打字软件的出
- 为了方便管理数据，我们在使用wps表格的时候，可能需要在其中创建组来实现，下面就让小编告诉大家在wps表格中如何创建组。在wps表格中创建组
- 在Excel工作表中，如果对于某些特别的数据设置了特殊的文字颜色，在对数据进行筛选时，可以根据颜色来进行操作。下面让小编为你带来excel表
- 本文接着为大家分享一种Excel隔行选取的小技巧，希望大家喜欢。我们以下面截图为例，比如让excel选取奇数行，同时选取3、5、7、9、11
- 一些朋友在问excel中如何利用标签制作三栏表头呢？下面小编将为大家带来excel中利用标签制作三栏表头的方法；希望对大家会有帮助，有需要的
