请问如何将多个表格里面的内容合并到汇总表？

奔跑的胡萝卜

如附件，表1表2 都是固定格式的内容，请问如何合并内容到汇总表中，再就是如何后面不停新增表后，如何实现自动汇总？

3190496160

Sub 汇总()
Dim arr()
ReDim arr(1 To Sheets.Count, 1 To 5)
For Each sh In Sheets
    If sh.Name <> "汇总" Then
        n = n + 1
        arr(n, 1) = sh.[l3]
        arr(n, 2) = sh.[b3]
        arr(n, 3) = sh.[s3]
        arr(n, 4) = sh.[u4]
        arr(n, 5) = sh.[s4]
    End If
Next sh
With Sheets("汇总")
    .UsedRange.Offset(2) = Empty
    .[a3].Resize(n, UBound(arr, 2)) = arr
End With
MsgBox "ok!"
End Sub

3190496160

多个表内容如何汇总.rar (16.72 KB, 下载次数: 13)

2023-6-1 14:59 上传

点击文件名下载附件

3190496160

增加工作表重新点击按钮更新数据即可

奔跑的胡萝卜

很好用，高手自在人间啊，非常感谢！