Excel中，如何快速批量合并多个工作表

点开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
sh.Name="合并数据"
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宏。

工作表合并完成。