excel多个工作表数据快速合并到一个工作表方法

利用VBA将数据区域不定的多个工作表数来自据快速合并到一个工作表方法，接下来将为大家简单介绍一下。

材料/工具

Excel

VAB

方法

假设分别有工作表1、2、3。

将鼠标指针移至“Sheet1”，右键选择“查看源代码”，即可打开VBE编水周继固甚附裂轻南离法辑器，

在工程窗口下的Microsoft Excel对象右键“插入”，点击“模块”，新建一个模块1。

输入如图所示的代码。

OptionE二香测准或xplicit

Subhbgzb()

DimshAsWorksheet,flagAsBoolean,iAsI投便四专设控法nteger,hrowAsInteger,hrowcAsInte城干度香义础ger

flag=False

Fori=1ToSheets.Count

IfSheets(i).Name="合并数据"Thenflag=True

Next

Ifflag=FalseThen

Setsh=Worksheets.Add

sh.Name="合并数据"

Sheet据但s("合并数据"值).Moveafter:=Sheets(Sh张协大希你异念异剧到eets.Count)

EndIf

Fori=1ToSheets.Count

IfSheets(i).Name<>"办合并数据"Then

hrow=Sheets("合并数据")密农华控倒令书己.UsedRange.Row

hrowc=Sh数次工富当主世eets("合并数据").UsedRange.Rows.Count

If hrowc = 1 Then

Sheets(i).U维财几获居市油额资热sedRange.CopySheets("合并数据").Cells(hrow,1).End(xlUp)

Else

Sheets(i).UsedRange.CopySheets("合并数据").Cel完理朝接势烈穿真ls(hrow+h蛋节交究粉rowc-1,1)扬此首谓早. Offset(1,0)

EndIf

EndIf

Nexti

EndSub

按ALT+F8打开宏对话框窗口，单击执行hbgzb宏。

即可实现整电境最派该致似根厂excel多个工作表数据快速合并到一个工作表。