快速将多个excel表合并成一个excel表---内附代码

最新推荐文章于 2025-04-10 19:12:03 发布

corpse2010

最新推荐文章于 2025-04-10 19:12:03 发布

阅读量3.2w

点赞数 8

分类专栏： Windows Office 文章标签： excel合并

本文链接：https://blog.csdn.net/corpse2010/article/details/89850175

版权

博客介绍了将多张结构基本相同的Excel表快速合并到一个页面的方法。需把多个Excel表放同一文件夹，新建一个Excel，用Microsoft Excel打开，进入宏计算界面，复制代码运行，运行完毕会有提示，点确定即可完成合并。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

有很多张excel，而且excel表里面的结构基本一样，如何快速将这些excel合并在一个excel页面，便于后期分析和统计。

具体如下：

1、我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。

2、用microsoft excel打开新建的excel表，并右键单击sheet1，找到“~~查看代码~~”，单击进去。进去之后就看到了宏计算界面。

3、

3、然后我们把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的~~“运行子过程/用户窗体”~~，代码如下，如图所示：

sub 合并当前目录下所有工作簿的全部工作表() 
dim mypath, myname, awbname 
dim wb as workbook, wbn as string 
dim g as long 
dim num as long 
dim box as string 
application.screenupdating = false 
mypath = activeworkbook.path 
myname = dir(mypath & "\" & "*.xls") 
awbname = activeworkbook.name 
num = 0 
do while myname <> "" 
if myname <