2024年4月10日发(作者：)

Excel2020

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

作表的操作方法

Excel2010

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

下：

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

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

右键点击工程窗口下的MicrosoftExcel对象，

再指向插入。

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

出现了模块的界而。

输入以下代码：

OptionExplicit

SubhbgzbO

DimshAsWorksheet, flagAsBoolean, iAsInteger, hrowAsInteger,

hrowcAsInteger

flag=False

Fori=lToSheets. Count

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

Next

Ifflag=FalseThen

Setsh=Worksheets. Add

sh. Name二"合并数据"

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

Endlf

Fori=lToSheets. Count

IfSheets (i). Name<>

，z

合并数据"Then

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

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

Ifhrowc=lThen

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

，z

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

Else

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

，z

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

Endlf

Endlf

Nexti

EndSub

退回到工作表界而，按住ALT键不放，再按F8键，打开宏对话

击执行hbgzb宏。

工作表合并完成。

框，点