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

你好，我是刘卓。欢迎来到我的公号，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