利用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 = FalseFor 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多个工作表数据快速合并到一个工作表方法介绍,希望能对大家有所帮助!
相关文章
Excel表格下拉列表怎么设置呢?很多用户对此还不是很清楚,小编这里就给大家带来有关Excel表格下拉列表怎么设置的回答,希望能够对大家有所帮助。......
2023-01-18
Excel如何打印选定区域呢?很多用户对此还不是很清楚,小编这里就给大家带来有关Excel如何打印选定区域的回答,希望能够对大家有所帮助。......
2023-01-18
Excel怎么设置英文首字母大写?Excel中输入英文首字母大写怎么操作?当我们需要将Excel表格中的英文单词,把首字母全部大写,该怎么操作呢,怎么将Excel中英文首字母大写,Excel怎么设置英文首字母大写,下面就和小编一起来看看吧!......
2023-01-18
Excel怎么给所有的数字加10?Excel数字怎么全部加10?怎么全部加1?当我们在使用Excel时,所有的数字都少10,或者1,该怎么给所有的数字都+10、+1呢,Excel怎么给所有的数字加10,EXcel数字怎么全部加10,下面就和小编一起来看看吧!......
2023-01-18
Excel怎么设置日期自动更新?Excel怎么设置日期自动更新?当我们Excel表格中的日期需要实时更新到最新日期,该怎么设置呢,怎么将Excel表格日期自动更新到最新日期,Excel怎么设置日期自动更新,下面就和小编一起来看看吧!......
2023-01-18