HR考勤表的一些困惑

jolinmumu

各位大神，求教一个问题，我这里有个系统导出表，但是现在我要汇总，有没有什么方便快捷的办法？比如加函数，或者透视表？
表一是系统导出表
表二是需要汇总的表格
数量上减少了，只是为了求方法，
再次感谢各位了，每个月做这个表太花时间了，稍不注意还容易出点小错。

静听溪流

表1加两列，一列请假类型（年假、病假、调休假……）一列天数（对应的天数），然后透视就可了

3190496160

Sub 考勤()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ar = Sheet1.[a1].CurrentRegion
For i = 2 To UBound(ar)
    ks = InStr(ar(i, 3), "(") + 1
    zf = Mid(ar(i, 3), ks, Len(ar(i, 3)) - ks)
    ar(i, 3) = Replace(zf, ")", "")
Next i
With Sheet2
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("b2:d" & r) = Empty
    br = .Range("a1:d" & r)
    For i = 2 To UBound(br)
        If Trim(br(i, 1)) <> "" Then
            d(Trim(br(i, 1))) = i
        End If
    Next i
    For j = 2 To UBound(br, 2)
        If Trim(br(1, j)) <> "" Then
            d(Trim(br(1, j))) = j
        End If
    Next j
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            n = d(Trim(ar(i, 1)))
            m = d(Trim(ar(i, 3)))
            If n <> "" And m <> "" Then
                br(n, m) = br(n, m) + 1
            End If
        End If
    Next i
    .Range("a1:d" & r) = br
End With
MsgBox "ok!"
End Sub

3190496160

3190496160

考勤11.rar (17.51 KB, 下载次数: 48)

2020-12-21 10:18 上传

点击文件名下载附件