VBA学习笔记4：将同一文件下的多个工作簿的数据汇总为一个工作表

最新推荐文章于 2024-04-30 16:58:01 发布

大脸猫的小心得

最新推荐文章于 2024-04-30 16:58:01 发布

阅读量5.3k

点赞数 1

分类专栏： VBA学习笔记文章标签：其他

本文链接：https://blog.csdn.net/weixin_45355881/article/details/124235266

版权

VBA学习笔记4：将同一文件下的多个工作簿的数据汇总为一个工作表

1、删除新建的工作簿中除“汇总表”外的其他工作表；
2、遍历文件夹下的其他工作簿，并将每个工作簿的工作表复制到“汇总表”和新建表的其他sheet中。

效果如下：
同一文件夹中有多个工作簿，需要将工作簿的数据汇总在一个表中，并生成一个汇总表。

运行前：
在这里插入图片描述
运行后：

代码如下：

Sub 汇总同一文件下的工作簿数据()
    Dim file$ '用来存储文件夹下的工作簿名称
    Dim sht As Worksheet '用来存储各个工作簿中待复制的工作表，下称“各表”
    Dim rng As Range '用来存储各表待复制区域
    Dim k% 'k记录各表的行数
    Dim nk% 'nk记录行数
    Dim m%