如何将多个工作簿的内容合并到一个工作簿中？

　　今天有童鞋私信问小编：“如何将多个工作簿的内容合并到一个工作簿中”，今天我们学习这个小技巧。平时如果需要转换的工作簿中数据较少，执行复制粘贴操作就可以实现，如果数据多怎么办呢？大家可以看看今天的两种方法有没有帮助。
　　方法一：
　　1。建立一个文件夹，将所有需要合并到一起的工作簿都放到里面；
　　2。在新建的文件夹里新建一个Excel工作表工作表5，作为合并工作簿的载体；
　　3。双击打开工作表5，选中Sheet1右击鼠标，在弹出的栏目中点击“查看代码”。
　　4。在弹出的代码编辑窗口中，输入代码。
　　5。在代码窗口中，黏贴下列代码：
　　SubMergeSheets2（）
　　UpdatedbyExtendoffice2019220
　　DimxStrPathAsString
　　DimxStrFNameAsString
　　DimxWSAsWorksheet
　　DimxMWSAsWorksheet
　　DimxTWBAsWorkbook
　　DimxStrAWBNameAsString
　　DimxIAsInteger
　　OnErrorResumeNext
　　xStrPC：UsersDT168DesktopKTE
　　xStrNSheet1，Sheet3
　　xArrSplit（xStrName，，）
　　Application。ScreenUpdatingFalse
　　Application。DisplayAlertsFalse
　　SetxTWBThisWorkbook
　　xStrFNameDir（xStrP。）
　　DoWhileLen（xStrFName）0
　　Workbooks。OpenFilename：xStrPxStrFName，ReadOnly：True
　　xStrAWBNameActiveWorkbook。Name
　　ForEachxWSInActiveWorkbook。Sheets
　　ForxI0ToUBound（xArr）
　　IfxWS。NamexArr（xI）Then
　　xWS。CopyAfter：xTWB。Sheets（xTWB。Sheets。Count）
　　SetxMWSxTWB。Sheets（xTWB。Sheets。Count）
　　xMWS。NamexStrAWBN（xArr（xI））
　　ExitFor
　　EndIf
　　NextxI
　　NextxWS
　　Workbooks（xStrAWBName）。Close
　　xStrFNameDir（）
　　Loop
　　Application。ScreenUpdatingTrue
　　Application。DisplayAlertsTrue
　　EndSub
　　6。点击菜单栏运行运行子过程用户窗体。关闭代码输入窗口。打开excel工作簿5。可以看到下方已经多了很多新的工作表此时，我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。
　　方法二：
　　1。建立一个文件夹，将所有需要合并到一起的工作簿都放到里面；
　　2。在新建的文件夹里新建一个Excel工作表，作为合并工作簿的载体；
　　3。双击打开工作表5，选中Sheet1右击鼠标，在弹出的栏目中点击“添加更多”；
　　4。点击之后弹出文件添加选择页面，全选所有需要添加的文件，然后点击下方的打开即可。
　　今天的Excel操作技巧就先讲到这里了，如果有什么问题欢迎大家在评论区留言讨论