HR考勤表的一些困惑

jolinmumu · 发表于 2020-12-20 21:12

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

静听溪流 · 发表于 2020-12-20 23:08

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

3190496160 · 发表于 2020-12-21 10:17

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 · 发表于 2020-12-21 10:17

3190496160 · 发表于 2020-12-21 10:18

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

		自动登录	找回密码
密码			免费注册

[求助] HR考勤表的一些困惑