如何利用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多个工作表数据快速合并到一个工作表方法介绍,希望能对大家有所帮助!
猜你喜欢
- Word中自带了拼音检查功能,不仅能纠正中文错别字,也能纠正英文错别字。由于中文的词汇特别复杂,效果往往不好,但对英文的拼写错误,纠正能力很
- 在win10系统中,用户可以切换到平板电脑模式,但平板电脑模式下没有键盘。如何在win10平板电脑模式下打开键盘?让我们看看详细的方法。wi
- 我身边的朋友有时候会遇到一个这样的情况:刚做完一份word文档,别的同事打开了,鼠标不太好用不小心把几个字托串行了……那么多的字也不怎么好检
- 刚刚学习word的朋友接触到艺术字都会感到惊艳,因为之前一直接触的是黑白文字,突然多了一种彩色的艺术字会感觉到新鲜,今天我们为大家带来了wo
- 在使用word的时候常常会多出一些空白页有时候点击删除还删除不掉,那么下面就由小编给大家分享下删除多余空白页的技巧,希望能帮助到您。删除多余
- 很多Win10用户在插上耳机后遇到有电流声噪音的情况。这种情况其实是因为播放设备和录音设备设置不当导致。以下小编给大家带来USB耳机电流声的
- 1、首先我们打开wps表格,然后点击数据==重复项===高亮重复项==设置 2、大家可以看到我们的WPS表格中,第
- 表格是Word办公软件中使用频率比较高的一个功能,在使用Word表格过程中,Word表格斜线怎么弄?本文将对此操作做详细说明。表格斜线如何设
- 在Office 2010中,强化了翻译的功能和易用性,并且在Excel 2010、PowerPiont 2010、onenote 2010、
- 在word文档编辑过程中,我们常常会用到文本框,今天我们来学习一下如何将文本框内的文本水平、垂直方向均设置为居中对齐。目标下图左侧为横排文本
- 在很多小伙伴刚安装win10的时候系统往往是自动更新的,但是很多用户不喜欢自动更新而且有时候容易更新失败,那么该怎么取消更新呢?下面就一起看
- 许多小伙伴在查找一些东西的时候,都会直接从Windows自带的搜索左下角的搜索进行搜索。但是最近有不少Win10用户反应,自己在使用的过程中
- 其实是很简单也很实用的操作。在03版word中页眉工具项目较多,设置分类较细,很多人会用的插入分页符设置不同页眉显示。今天,小编就教大家在W
- 近来不少Win10 1909系统的用户反映,他们在玩游戏的过程中发现CPU有时候会自动降频,系统也因此卡顿起来!遇到类似情况的话,其实只要开
- 世界上没有万能的东西,PPT在某些领域不可能取代Word、Excel,所以今天小编就把自己知道的所有Word方面的技巧分享给大家。Word达
- 在制作表格的实际操作过程中,难免会遇到由于创建表格时未充分考虑,而需要向表格中插入/删除行或列的情况,例如在word2003表格的最右边一列
- 有的小伙伴在使用Word2013时,不会对插入的图片样式进行设置。今天小编整理了一下在Word2013中对插入图片样式进行设置的操作方法,需
- 导致电脑突然黑屏的原因有很多,有些小伙伴最近就是遇到自己Win10专业版的电脑开机后,停在鼠标处突然就黑屏了。很多小伙伴重启后还是可能会遇到
- 什么是工作中需要Office办公软件技巧最实用的部分呢?这也是想学习Office办公软件的人迷茫的地方?到底怎么才能找到合适自己的工作的Of
- 我们时常会在Word文档中遇到一些生僻字,也就是不常见,我们不认识的字,不认识那当然也不会读了。其实可以借助Word2010中拼音指南,来帮