求大神帮忙解决下，谢谢，急用

bsmm130 · 发表于 2020-12-10 11:11

Excel中有好几个相同的sheet，格式都一样，每个sheet就是一个月的出勤，一共12个月但是每个月的人员不一定一样，有新来的，有离职的，
需要使用12月的人力作为基准（工号唯一），统计前面12个月的员工的加班/请假状况，谢谢～

bsmm130 · 发表于 2020-12-10 11:12

需要通过工号去查找前面几个月相同的员工的出勤，

3190496160 · 发表于 2020-12-10 15:03

Sub 汇总()
Dim d As Object
Dim ar As Variant, br As Variant
Set d = CreateObject("scripting.dictionary")
Sheets("汇总").[a1].CurrentRegion.Offset(1, 11) = Empty
ar = Sheets("汇总").[a1].CurrentRegion
For i = 2 To UBound(ar)
If Trim(ar(i, 5)) <> "" Then
      d(Trim(ar(i, 5))) = i
End If
Next i
For Each sh In Sheets
If sh.Name <> "汇总" Then
   br = sh.[a1].CurrentRegion
   For i = 2 To UBound(br)
         If Trim(br(i, 5)) <> "" Then
            n = d(Trim(br(i, 5)))
            If n <> "" Then
                  For j = 12 To UBound(br, 2)
                     ar(n, j) = ar(n, j) + br(i, j)
                  Next j
            End If
         End If
      Next i
End If
Next sh
Sheets("汇总").[a1].CurrentRegion = ar
End Sub

3190496160 · 发表于 2020-12-10 15:04

附件太过于简单了，代码仅供参考

出勤-白.rar (18.55 KB, 下载次数: 4)

bsmm130 · 发表于 2020-12-10 23:17

3190496160 发表于 2020-12-10 15:04
附件太过于简单了，代码仅供参考

感谢，我研究下，明天我在做一个好一点的模版，谢谢

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