向您请教，老师您好，多个sheet表格如何汇总到一个表格呢

xqjwc

向这里的老师请教：如何将将学校各部门：行政、语文、数学等8个部门的数据，自动汇总成一个表，方便统计呢？

xqjwc

想请教您，老师您好，如何自动将表格中前面8个部门，汇总到最后一个表中呢？谢谢您的帮助

3190496160

Sub 汇总()
With ActiveSheet
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("a4:p" & rs + 1).Clear
    For Each sh In Sheets
        If sh.Name <> ActiveSheet.Name Then
            r = sh.Cells(Rows.Count, 1).End(xlUp).Row
            If r >= 4 Then
                ws = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                sh.Range("a4:p" & r).Copy .Cells(ws, 1)
            End If
        End If
    Next sh
End With
MsgBox "ok!"
End Sub

xqjwc

3190496160 发表于 2022-5-17 15:30
Sub 汇总()
With ActiveSheet
    rs = .Cells(Rows.Count, 1).End(xlUp).Row

谢谢，

CracKey

WPS 专业版 里面有个功能是 合并工作表或工作簿的
就在  数据 -->  合并表格  那栏菜单 。
简单方便。

xqjwc

谢谢你。这个确实方便。我在用。就是不能自动更新。有变动，要重新操作。

shdh

也可以用数透表操作啊

跳跳狗

如果2016以上版本建议用PQ，能自动刷新数据。