怎样把分表的数据汇总到总表历

xgw159

把每月考勤自动汇总到总表里

quqiyuan

白班
I3=SUM(SUMIF(INDIRECT(ROW($2:$6)&"月!d:d"),$C3,INDIRECT(ROW($2:$6)&"月!e:e")))
夜班
J3=SUM(SUMIF(INDIRECT(ROW($2:$6)&"月!d:d"),$C3,INDIRECT(ROW($2:$6)&"月!f:f")))

3190496160

Sub 汇总()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("总表")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 3 Then MsgBox "总表为空！": End
    .Range("i3:j" & r) = Empty
    ar = .Range("a1:j" & r)
    For i = 3 To UBound(ar)
        If ar(i, 3) <> "" Then
            d(ar(i, 3)) = i
        End If
    Next i
    For Each sh In Sheets
        If InStr(sh.Name, "月") > 0 Then
            rs = sh.Cells(Rows.Count, 4).End(xlUp).Row
            If rs >= 9 Then
                br = sh.Range("b9:f" & rs)
                For i = 1 To UBound(br)
                    If br(i, 3) <> "" Then
                        xh = d(br(i, 3))
                        If xh <> "" Then
                            ar(xh, 9) = ar(xh, 9) + br(i, 4)
                            ar(xh, 10) = ar(xh, 10) + br(i, 5)
                        End If
                    End If
                Next i
            End If
        End If
    Next sh
    .Range("a1:j" & r) = ar
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

村级卡口值守人员名单.rar (31.47 KB, 下载次数: 11)

2024-2-20 12:52 上传

点击文件名下载附件

mykitami

I3公式
=SUM(SUMIF(INDIRECT(ROW($2:$6)&"月!D:D"),$C3,IF(I$2="白班",INDIRECT(ROW($2:$6)&"月!E:E"),INDIRECT(ROW($2:$6)&"月!F:F"))))
右拉，下拉

xgw159

你好，帮忙给套一下可以吗

xgw159

mykitami 发表于 2024-2-20 13:44
I3公式
=SUM(SUMIF(INDIRECT(ROW($2:$6)&"月!D:D"),$C3,IF(I$2="白班",INDIRECT(ROW($2:$6)&"月!E:E"),IND ...

帮忙把公式给套一下可以吗，谢谢

Holiday2022

很有意思的一个汇总表，留个爪，谢谢各位前辈给的公式