删除无效工时数据

Dragonfly7995

哪位大神帮忙设计一个VBA，把左边红框里无效的打卡数据给清除掉，清理的标准是连续两次记录间隔少于20分钟的，那么删除后一次记录，希望得到的结果就是右边蓝色框的内容，谢谢

小小鸟前滚翻

写个公式就行了，少于20分钟不显示

Dragonfly7995

小小鸟前滚翻 发表于 2019-3-6 16:05
写个公式就行了，少于20分钟不显示

不显示的话，结果就会是一个空格，我需要的是，少于20分钟的后一次记录就清除，然后后面的记录补上，不显示空格

wllxf

1. Public Sub shijian()
   
2. Dim a, b, i, j, x() As Double, z() As Date, m, s As Double, v, g, l
   
3. b = #12:20:00 AM#
   
4. s = b
   
5. g = Range("a" & Cells.Rows.Count).End(xlUp).Row
   
6. For l = 2 To g
   
7. m = 0
   
8. v = 0
   
9. a = Range("e" & l).Value
   
10. ReDim x(1 To 1, 1 To a)
    
11. For i = 1 To a
    
12. x(1, i) = Cells(l, 5 + i)
    
13. Next
    
14. For i = 1 To a - 1
    
15. For j = i + 1 To a
    
16. If x(1, j) - x(1, i) < s Then
    
17.   x(1, j) = 0
    
18.   End If
    
19. Next
    
20. Next
    
21.   For i = 1 To a
    
22.   If x(1, i) <> 0 Then
    
23.   m = m + 1
    
24.   End If
    
25.   Next
    
26.   ReDim z(1 To 1, 1 To m)
    
27.   For i = 1 To a
    
28.   If x(1, i) <> 0 Then
    
29.   v = v + 1
    
30.   z(1, v) = x(1, i)
    
31.   End If
    
32.   Next
    
33.   Range("r" & l).Resize(1, m) = z
    
34.   Next
    
35. End Sub
    

复制代码

Dragonfly7995

wllxf 发表于 2019-3-6 20:05

谢谢大神的指点，我先试试