这个表格处理起来是不是特别难

漠漠宁静的心

最近学习考勤处理，发现别人的原始数据跟我的不一样。我的如图

请问我的可以进行有效的分析，

我想把打卡记录 分别放入一个单元格， 图片是每天放一起  。。。请高人指点一下谢谢！

kuangben8

上传excel压缩文件格式，模拟数据，说明要求和结果

漠漠宁静的心

kuangben8 发表于 2016-2-23 14:43
上传excel压缩文件格式，模拟数据，说明要求和结果

我上传了 。

sunya_0529

漠漠宁静的心 发表于 2016-2-23 15:38
我上传了 。

用VBA处理，也不是很难实现——

1. Option Explicit
   
2. 
   
3. Sub FilterData()
   
4. Dim k As Range, arr(9999, 5), i%, j%, arrT
   
5. With Sheets("最初模板")
   
6.   For Each k In .Range("A4:A" & .[A65536].End(xlUp).Row + 1)
   
7.     If Len(k.Value) > 0 Then
   
8.       For j = 0 To 30
   
9.         If Len(k.Offset(1, j)) > 0 Then
   
10.           arr(i, 0) = k.Offset(0, 2) '工号
    
11.           arr(i, 1) = k.Offset(0, 10) '姓名
    
12.           arr(i, 2) = k.Offset(0, 20) '部门
    
13.           arr(i, 3) = Left(.[C3], 8) & Format(j + 1, "00") '日期
    
14.           arrT = Split(k.Offset(1, j), Chr(10))
    
15.           arr(i, 4) = arrT(0) '上班时间
    
16.           arr(i, 5) = arrT(UBound(arrT) - 1) '下班时间
    
17.           i = i + 1
    
18.         End If
    
19.       Next j
    
20.     End If
    
21.   Next
    
22. End With
    
23. With ActiveSheet
    
24.   .Cells.ClearContents
    
25.   .[A1:J1] = Array("工号", "姓名", "部门", "日期", "上班时间", "下班时间", "迟到次数", "早退次数", "旷工天数", "加班时长")
    
26.   .[A2].Resize(UBound(arr), 6) = arr
    
27. End With
    
28. End Sub

复制代码

漠漠宁静的心

sunya_0529 发表于 2016-2-23 20:41
用VBA处理，也不是很难实现——

我根本看不懂这一堆代码啊。。。。。太复杂 有简单点的吗？

sunya_0529

漠漠宁静的心 发表于 2016-2-24 09:05
我根本看不懂这一堆代码啊。。。。。太复杂 有简单点的吗？

看不懂不要紧，按钮都给你做好了，你直接点一下就有结果了，还要怎么简单？

201228

有考勤的人事都伤不起！！！