如何利用VBA将excel多个工作表数据快速合并到一个工作表上(excel跨表格提取数据？)

Question

如题所述

Answer 1

利用VBA将数据区域不定的多个工作表数据快速合并到一个工作表方法。有需要的朋友可以跟着教程一起来学习！
方法/步骤
分别有工作表1、2、3数据区域如下图所示：
按ALT+F11打开VBE编辑器，在工程窗口下的MicrosoftExcel对象右键-插入-模块，新建一个模块1。
输入如下代码：
复制代码
代码如下:
OptionExplicit
Subhbgzb
DimshAsWorksheet,flagAsBoolean,iAsInteger,hrowAsInteger,hrowcAsInteger
flag=False
Fori=1ToSheets.Count
IfSheets.Name=合并数据Thenflag=True
Next
Ifflag=FalseThen
Setsh=Worksheets.Add
sh.Name=合并数据
Sheets.Moveafter:=Sheets
EndIf
Fori=1ToSheets.Count
IfSheets.Name合并数据Then
hrow=Sheets.UsedRange.Row
hrowc=Sheets.UsedRange.Rows.Count
Ifhrowc=1Then
Sheets.UsedRange.CopySheets.Cells.End
Else
Sheets.UsedRange.CopySheets.Cells.Offset
EndIf
EndIf
Nexti
EndSub
按ALT+F8打开宏对话框窗口，鼠标单击执行hbgzb宏。
实现如图所示效果：
注意事项
本段VBA代码由于将编辑过的区域作为源数据区域，顾无论该数据源有无数据，只要曾经编辑过皆做为源数据源，做拷贝处理。
以上就是利用VBA将excel多个工作表数据快速合并到一个工作表方法介绍，希望能对大家有所帮助！