自习安排次数统计

阿Jk

如果要将三个年级的自习汇总到一份总表中，怎么处理呢？

阿Jk

quqiyuan 发表于 2024-9-14 16:57
这样简单了很多，修改的也多了，仅供参考。。。

老师，要把不同年级的数据汇总到一张总表中，麻烦再帮我看一下，谢谢

quqiyuan

阿Jk 发表于 2024-11-3 09:42
老师，要把不同年级的数据汇总到一张总表中，麻烦再帮我看一下，谢谢

刚刚留意到，做了一下，供你参考，

写的代码是按照每个月份的工作簿的月汇总获取数据的来做汇总，请留意，所以需要每个月做好汇总后，再使用本代码

quqiyuan

代码如下。。。
Sub test()
    Application.ScreenUpdating = False
    Set fso = CreateObject("scripting.filesystemobject")
    Set wb = ThisWorkbook
    pth = wb.Path & "\"
    Set sht = wb.Sheets("Sheet1")
    r = sht.Cells(Rows.Count, 2).End(3).Row
    arr = sht.Range("b6:b" & r)
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        s = arr(i, 1)
        If arr(i, 1) <> Empty Then
            d(s) = i
        End If
    Next
    ReDim crr(1 To UBound(arr), 1 To 4)
    For Each ws In fso.getfolder(pth).Files
        If fso.getbasename(wb.Name) <> fso.getbasename(ws) Then
            If Left(ws.Name, 2) <> "~$" Then
                With Workbooks.Open(ws, 0).Sheets("月汇总")
                    r = .Cells(.Rows.Count, 2).End(3).Row
                    brr = .Range("a6:l" & r - 1)
                    .Parent.Close 0
                End With
                For i = 1 To UBound(brr)
                    s = brr(i, 2)
                    If s <> Empty Then
                        If d.exists(s) Then
                            crr(d(s), 1) = crr(d(s), 1) + brr(i, 3)
                            crr(d(s), 2) = crr(d(s), 2) + brr(i, 4)
                        End If
                    End If
                Next
            End If
        End If
    Next
    For i = 1 To UBound(crr) - 1
        If crr(i, 1) <> Empty Or crr(i, 2) <> Empty Then
            crr(i, 3) = "=sum(rc[-1]:rc3)"
            crr(i, 4) = "=rc[-1]*50"
        End If
    Next
    For j = 1 To 4
        crr(UBound(crr), j) = "=sum(r[-1]c:r6c)"
    Next
    sht.[c6].Resize(UBound(crr), 4) = crr
    Beep
    Set d = Nothing
    Application.ScreenUpdating = True
End Sub

quqiyuan

阿Jk

quqiyuan 发表于 2024-11-3 15:58
刚刚留意到，做了一下，供你参考，

写的代码是按照每个月份的工作簿的月汇总获取数据的来做汇总，请留 ...

是这个意思，太感谢老师了