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

bsmm130

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

bsmm130

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

3190496160

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

附件太过于简单了，代码仅供参考
出勤-白.rar (18.55 KB, 下载次数: 4)

2020-12-10 15:04 上传

点击文件名下载附件

bsmm130

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

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