接前续-Excel---如何快速的合并多个Excel工作簿至一个工作簿中的工作表？-2
2022-04-21 18:47阅读：
7、在打开的对话窗口中，选择你要合并的多个工作薄。
8、等待运行。而后就OK了。
9、打开名为“汇总工作簿”的Excel文件，我们就能看到多个其他工作簿以多个Sheet页的形式合并到了这一个工作簿中。
第二步：多个工作表合成一个工作表
在“汇总工作簿”工作簿中，有很多个Sheet页，我们的最终目的是把这多个Sheet页合并到一个Sheet页的多行。其操作办法如下：
1、在“汇总工作簿”中，新建一个sheet页。
2、在新建的sheet标签上单击右键，选择“查看代码”
3、在打开的VBA编辑窗口中粘贴以下代码：
Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range('A65536').End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range('B1').Select
Application.ScreenUpdating = True
MsgBox '当前工作簿下的全部工作表已经合并完毕！', vbInformation, '提示'
End Sub
4、关闭该VBA编辑窗口
5、在Excel中，开发工具---宏,选“合并当前工作簿下的所有工作表”,然后“执行”。
6、等待运行，而后就OK了。
结语
我们上面提到的是如何使用VBA来实现多个工作簿合成一个工作簿以及一个工作簿中的多个工作表按行合并。
上面的方法是在知乎上摘录的，
提姆葉提供了工作簿的合并；
Anson提供了同一个工作簿中的工作表按行合并的方法。
另外，我还在知乎上看到一个办法，就是
雷公子提供的用PowerQuery动态汇总文件夹下的多个Excel文件。链接如下：
https://zhuanlan.zhihu.com/p/26164792
。但是由于我个人并没有尝试过使用PowerQuery去进行合并，所以并不清楚这个效果如何。
总之这里是一个解决方法的汇总，如果有和我一样有类似需求的小伙伴，可以尝试用这边的方法去解决这个问题。
作者：汪汪家的宝贝
链接：https://www.jianshu.com/p/c8ae6852f1da
来源：简书
著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。
