作为人事考勤人员(我不是),每月面对成千上万的考勤打卡记录,用眼睛逐个考核....请问眼睛还好吗(手动滑稽)
文笔不好,直接上干货吧
有如下原始考勤数据:原始打卡数据
由于员工害怕打卡失败,会多次重复打卡,导致每天的打卡次数非常多,比如上图13行到16行,此时会更加加重考勤人员的工作负担。那么如何更加快速考勤呢,接着往下看。
1、新建excel表(如果你的考勤机导出的数据和上图格式一样,次步骤跳过),将打卡数据复制到sheet1里,并保证B列为姓名,D列为打卡时间。
2、按组合键Alt+F11,打卡代码编辑器,复制如下代码到sheet2中
代码:
Sub x()
Dim arr As Variant
Dim Result() As String
Dim EndRow As Integer, EndCol As Integer, i As Integer, j As Integer, Re_r As Integer, Re_c As Integer, x As Integer
EndRow = Sheet1.Cells.Find("*", Sheet1.Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
arr = Sheet1.Range("A2:D" & EndRow).Value
ReDim Result(1 To EndRow, 1 To 200)
Re_r = 1
For i = 1 To UBound(arr)
If i &g