[已解决]用数组修改考勤时间

zss427607

请教各位老师 如何 用数组修改考勤时间
条件是，判断姓名是否有重复的，如果有 相同姓名的  考勤时间全部修改为 本姓名的最小 考勤时间
请各位老师帮忙看看
谢谢了

最佳答案

月排行榜 / 总排行榜

zjdh

2011-9-28 19:18

1. Private Sub CommandButton1_Click()
   
2.     ARR = Range("B2:C" & Range("B65536").End(3).Row)
   
3.     For I = 1 To UBound(ARR)
   
4.         For J = I To UBound(ARR)
   
5.             If ARR(I, 1) = ARR(J, 1) Then
   
6.                 If ARR(I, 2) > ARR(J, 2) Then
   
7.                     ARR(I, 2) = ARR(J, 2)
   
8.                 Else: ARR(J, 2) = ARR(I, 2)
   
9.                 End If
   
10.             End If
    
11.         Next
    
12.         Range("F" & I + 1) = ARR(I, 2)
    
13.     Next
    
14. End Sub

复制代码

跳转到最佳答案楼层

zjdh

1. Private Sub CommandButton1_Click()
   
2.     ARR = Range("B2:C" & Range("B65536").End(3).Row)
   
3.     For I = 1 To UBound(ARR)
   
4.         For J = I To UBound(ARR)
   
5.             If ARR(I, 1) = ARR(J, 1) Then
   
6.                 If ARR(I, 2) > ARR(J, 2) Then
   
7.                     ARR(I, 2) = ARR(J, 2)
   
8.                 Else: ARR(J, 2) = ARR(I, 2)
   
9.                 End If
   
10.             End If
    
11.         Next
    
12.         Range("F" & I + 1) = ARR(I, 2)
    
13.     Next
    
14. End Sub

复制代码

zss427607

zjdh 发表于 2011-9-28 19:18

谢谢了 {:091:}