分享

将多个工作表的数据合并到一个工作表中

 刘卓学EXCEL 2021-04-02

你好,我是刘卓。欢迎来到我的公号,excel函数解析。在工作中,我们的数据可能有很多,比如有很多个部门的数据,要分别放在不同的工作表中。

但在汇总分析的时候,需要将所有部门的数据合并起来,统一处理。这时,将多表数据合并到一个工作表中,可能就是很多小伙伴头疼的问题。今天,就来分享一段简短的代码来解决这个问题。

如下图所示,有5个班级的数据,分别放在5个不同的工作表中,它们的数据结构一样。现在要将这5个班级的数据合并到“总表”这个工作表中。写好代码后,只需点一下按钮,就可以自动合并。
供观看的代码如下:
供复制的代码如下:
Sub 将多个工作表合并为一个工作表() Worksheets("总表").Range("a2:d9999").ClearContents Dim xrow As Integer, rng As Range, sht As Worksheet For Each sht In Worksheets If sht.Name <> "总表" Then Set rng = Worksheets("总表").Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0) xrow = sht.Range("a1").CurrentRegion.Rows.Count - 1 sht.Range("a2").Resize(xrow, 4).Copy rng End If NextEnd Sub
文件链接:

https://pan.baidu.com/s/1CieviwZ64avZ-ZPrvInq6Q

提取码:pr5j

    转藏 全屏 打印 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多