VBA学习笔记3：合并同一工作簿下的多个表格

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

大脸猫的小心得

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

阅读量1.4k

点赞数

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

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

版权

这篇VBA学习笔记介绍了如何在同一个工作簿中合并多个表格。通过创建一个新的汇总表，将不同工作表的数据复制并整合在一起，实现有效的数据汇总。

摘要由CSDN通过智能技术生成

VBA学习笔记3：合并同一工作簿下的多个表格

1、建立一个新的汇总表；
2、将其他sheet数据复制到汇总表中。

效果如下：
需要将3个sheet的表的数据汇总起来
在这里插入图片描述
汇总后的数据：

代码如下：

Sub 合并多个工作表数据()
    Dim sht As Worksheet
    Dim rows%, hzrows%  ’row存储被复制的sheet的行数，hzrow存储新建表的行数
    ThisWorkbook.Worksheets().Add(before:=ThisWorkbook.Worksheets("1月")).Name = "汇总" 'worksheets.add.name="" 在1月sheet前创建工作表并重命名为“汇总”
    [a1] = "月份"
    [b1]