考勤原始数据变为比较简单的数据

快乐若离

工作簿1.rar (13.7 KB, 下载次数: 103)

2014-10-16 16:58 上传

点击文件名下载附件

rym9401

看下是否需要！

快乐若离

恩恩 正是我所需要的
另外我想问一下：
=IF({0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;1;1;1;1;1;1;1;1;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0},{1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;27;28;29;30;31;32;33;34;35;36;37;38;39;40;41;42;43;44;45;46;47;48;49;50;51;52;53;54;55;56;57;58;59;60;61;62;63;64;65;66;67;68;69;70;71;72;73;74;75;76;77;78;79;80;81;82;83;84;85;86;87;88;89;90;91;92;93;94;95;96;97;98;99;100;101;102;103;104;105;106;107;108;109;110;111;112;113;114;115;116;117;118;119;120;121;122;123;124;125;126;127;128;129;130;131;132;133;134;135;136;137;138;139;140;141;142;143;144;145;146;147;148;149;150;151;152;153;154;155;156;157;158;159;160;161;162;163;164;165;166;167;168;169;170;171;172;173;174;175;176;177;178;179;180;181;182;183;184;185;186;187;188;189},200)

这个的意义是数组相等则保留相等的值，如果不等就写入200么？

rym9401

1代表是找到需要值的位置，然后结合row找出具体行数。
因为你的数据最大只有198，只要用一个大于此数的数字就行。这是为了后面找出最小值时用的。

快乐若离

rym9401 发表于 2014-10-17 15:20
1代表是找到需要值的位置，然后结合row找出具体行数。
因为你的数据最大只有198，只要用一个大于此数的数字 ...

恩恩 谢谢！！

sdong7

1. Sub tt() 'bysdon7 20141020
   
2. Dim arr, dic, arr1(1 To 100000, 1 To 5), dic2, arr2(1 To 100000, 1 To 2), arr3
   
3. Set dic2 = CreateObject("scripting.dictionary")
   
4. Set dic = CreateObject("scripting.dictionary")
   
5. Dim mxr, mxr3 As Long
   
6. mxr = Sheets("原始").[c65536].End(xlUp).Row
   
7. arr = Sheets("原始").Range("a1:e" & mxr)
   
8. For i = 2 To mxr
   
9. If dic.exists(arr(i, 2) & " " & arr(i, 4)) Then
   
10. hang = dic(arr(i, 2) & " " & arr(i, 4))
    
11. arr1(hang, 5) = Format(arr(i, 5), "h:m:s") '最后一次打卡
    
12. Else
    
13. k = k + 1
    
14. dic(arr(i, 2) & " " & arr(i, 4)) = k
    
15. arr1(k, 1) = arr(i, 2)
    
16. arr1(k, 2) = arr(i, 3)
    
17. arr1(k, 3) = arr(i, 4) '日期
    
18. arr1(k, 4) = Format(arr(i, 5), "h:m:s") '第一次打卡
    
19. End If
    
20. Next i
    
21. For i = 2 To mxr
    
22. If Not dic2.exists(arr(i, 2)) Then
    
23. m = m + 1
    
24. dic2(arr(i, 2)) = m
    
25. arr2(m, 1) = arr(i, 2)
    
26. arr2(m, 2) = arr(i, 3)
    
27. 
    
28. End If
    
29. Next i
    
30. Sheets("整理后").[a3].Resize(m, 2) = arr2
    
31. 
    
32. mxr3 = Sheets("整理后").[a65536].End(xlUp).Row
    
33. arr3 = Sheets("整理后").Range("a1:bj" & mxr3)
    
34. For i = 3 To mxr3
    
35. For j = 3 To 61 Step 2
    
36. If dic.exists(arr3(i, 1) & " " & arr3(1, j)) Then
    
37. hang = dic(arr3(i, 1) & " " & arr3(1, j))
    
38. arr3(i, j) = arr1(hang, 4)
    
39. arr3(i, j + 1) = arr1(hang, 5)
    
40. End If
    
41. Next j
    
42. 
    
43. Sheets("整理后").Range("a1:bj" & mxr3) = arr3
    
44. Next i
    
45. 
    
46. 
    
47. End Sub
    

复制代码

sdong7

传上附件！！！！！！！！！！

sdong7

觉得好就送朵鲜花！！我自己运行过的，可以！

lina86

正好需要用到，学习一下，

verywondful

很好很强大，每条后面能不能注释下啊。学习下。