利用VBA实现多个Excel工作簿快速合并方法

最佳经验

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

如何利用VBA实现多个Excel工作簿快速合并接下来就来简洁讲解一下其操作步骤，以下内容是由微蓝经验网用户发布利用VBA实现多个Excel工作簿快速合并方法，希望对于用户有一定帮助，为朋友进行解决疑惑，如若想了解更多相关内容，可以向底部移动了解更多与本教程文章相关解决经验方法！

工具与材料

VBA，Excel，电脑

步骤与方法

1/7
第一步，按组合键“ALT+F11”打开VBE编辑器，在工程窗口下的“MicrosoftExcel”对象进行单击鼠标右键，再在弹出的框再进行如图所示的操作方法。
2/7
随后，在其中粘贴下面的代码:再进行保存。
Sub工作簿间工作表合并（）

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
3/7
随后，关闭该窗口，打开Excel软件，点击界面上方的“开发工具”选项。
4/7
随后随后点击其下方选项中的“加载宏”。
5/7
随后，在弹出的框中单击“工作簿间工作表合并“，再点击其中的”执行“按钮。
6/7
随后，在弹出来的窗口中选择要合并的工作簿，再点击”开启“即可。
7/7
那样，多个工作簿就合并成一个了。