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

最佳经验

由作者撰写原创经验并推荐置顶

EXCEL软件里有很多个工作表，每个工作表形成独立的数据内容，如果想要把多个表的数据合并到一个工作表中，难道要挨个挨个的复制粘贴吗？其实不用这么麻烦又浪费时间，下面教大家简单的几个操作，就能解决这个问题，以下内容是由微蓝经验网用户发布Excel中，如何快速批量合并多个工作表，希望对于用户有一定帮助，为朋友进行解决疑惑，如若想了解更多相关内容，可以向底部移动了解更多与本教程文章相关解决经验方法！

工具与材料

电脑

步骤与方法

1/9
点开EXCEL表格，为了举例，分别在两个表格中输入不同的数值。
2/9
为了举例，分别在两个表格中输入不同的数值。
3/9
按着ALT键不放开，再按F11键，打开VBE编辑器。
4/9
鼠标右键点击工程窗口下的MicrosoftExcel对象，再指向插入。
5/9
插入一栏的旁边出现了列表，点击模块。
6/9
显示了模块的界面。
7/9
输入以下代码：
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
8/9
退回到工作表界面，按住ALT键不放开，再按F8键，打开宏对话框，点击执行hbgzb宏。
9/9
工作表合并完成。