excel2020中快速合并多个工作表数据到一个工作表的方法

excel2020中快速合并多个工作表数据到一个工

作表的方法

Excel2007中快速合并多个工作表数据到一个工作表的步骤如下：

打开EXCEL表格，为了举例，分别在两个表格中输入不同的数据。

按住ALT键不放，再按F11键，打开VBE编辑器。

右键点击工程窗口下的MicrosoftExcel对象，再指向插入。

插入一栏的旁边出现了列表，点击模块。

出现了模块的界面。

输入以下代码：

OptionExplicit

Subhbgzb()

DimshAsWorksheet,flagAsBoolean,iAsInteger,hrowAsInteger, hrowcAsInteger

flag=False

Fori=1ToSheets.Count

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

Next

Ifflag=FalseThen

Setsh=Worksheets.Add

="合并数据"

Sheets("合并数据").Moveafter:=Sheets(Sheets.Count)

EndIf

Fori=1ToSheets.Count

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

hrow=Sheets("合并数据").UsedRange.Row

hrowc=Sheets("合并数据").UsedRange.Rows.Count

Ifhrowc=1Then

Sheets(i).UsedRange.CopySheets("合并数据

").Cells(hrow,1).End(xlUp)

Else

Sheets(i).UsedRange.CopySheets("合并数据

").Cells(hrow+hrowc-1,1).Offset(1,0)

EndIf

EndIf

Nexti

EndSub

退回到工作表界面，按住ALT键不放，再按F8键，打开宏对话框，点击执行hbgzb宏。

工作表合并完成。