是否可以帮忙做一个模板将这种每日的统计的表格自动生成每周和每月的

张美阿

是否可以帮忙做一个模板将这种每日的统计的表格自动生成每周和每月的

3190496160

求助务必上传附加才可能得到别人的帮助，必要时模拟结果方便理解

张美阿

非常感谢，我一会儿就上传

张美阿

3190496160 发表于 2023-11-1 15:32
求助务必上传附加才可能得到别人的帮助，必要时模拟结果方便理解

非常感谢，我 一会儿就上传

张美阿

这个是模板，麻烦大神帮忙解决一下

3190496160

是不是要把每天的这些数据，按周或者按月汇总？？？

张美阿

3190496160 发表于 2023-11-7 09:20
是不是要把每天的这些数据，按周或者按月汇总？？？

对的，您说的没错

3190496160

张美阿 发表于 2023-11-7 11:14
对的，您说的没错

目前是提供了一个工作表，而且，工作表重要统计的数据都是  0，根本就没办法测试代码是否正确的，真心求助，就上传真实的文件，特别是要有数据，要多几个工作表

张美阿

3190496160 发表于 2023-11-7 13:09
目前是提供了一个工作表，而且，工作表重要统计的数据都是  0，根本就没办法测试代码是否正确的，真心求 ...

麻烦大神帮忙

3190496160

Sub 汇总()
Dim br()
Dim ar As Variant
ReDim br(1 To Sheets.Count - 1, 1 To 16)
For Each sh In Sheets
    If sh.Name <> "汇总" Then
        n = n + 1
        br(n, 1) = sh.[a27]
        y = -3
        For j = 4 To 8 Step 2
            y = y + 5
            m = y - 1
            For i = 28 To 31
                m = m + 1
                br(n, m) = sh.Cells(i, j)
            Next i
            br(n, m + 1) = sh.Cells(27, j)
        Next j
    End If
Next sh
With Sheets("汇总")
    .UsedRange.Offset(1) = Empty
    .[a2].Resize(n, 16) = br
End With
MsgBox "ok!"
End Sub