loyyee

¦^´_ 6# oobird

·PÁª©¥D¨ó§U­×§ï¡C

oobird

1. Private Sub cbCheckData_Click()
   
2.     Dim a As Range, b As Range, e%, f%, r%
   
3.     Set a = Range(Cells(1, 1), Cells(1, 1).End(xlDown))
   
4.     Set b = Range(Cells(1, 2), Cells(1, 2).End(xlDown))
   
5.     e = 7: f = 7
   
6.     For r = 1 To a.Count
   
7.         If Application.CountIf(b, a(r)) = 0 And [j:j].Find(a(r), , , 1) Is Nothing Then [j65536].End(xlUp).Offset(1, 0) = a(r)
   
8.         If Application.CountIf(a, a(r)) > 1 And [e:e].Find(a(r), , , 1) Is Nothing Then Cells(e, 5) = a(r): e = e + 1
   
9.     Next
   
10.     For r = 1 To b.Count
    
11.         If Application.CountIf(a, b(r)) = 0 And [i:i].Find(b(r), , , 1) Is Nothing Then [i65536].End(xlUp).Offset(1, 0) = b(r)
    
12.         If Application.CountIf(b, b(r)) > 1 And [f:f].Find(b(r), , , 1) Is Nothing Then Cells(f, 6) = b(r): f = f + 1
    
13.     Next
    
14. End Sub

½Æ»s¥N½X

loyyee

¦^´_ 4# luhpro

·PÁ­קïµ{¦¡¥i¥H¥Î¤F¡A­nªáÂI®É¶¡¬ã¨s¥¨¶°¡C

luhpro

¦^´_ 3# loyyee
­è­èµo²{­ìµ{¦¡¦³¨â­Ó¦a¤è¦³¿ù»~¤§«e¨S¦³ª`·N¨ì :
  If .Cells(lTarRow(iLack) - 1, iLack) <> "A" & Right("0000" & lCount, 4) Then
»P
  .Value = "A" & Right("0000" & lCount, 4)
lCount ­n§ï¦¨ lJ

­×§ïµ{¦¡¦p¤U:
¼Æ­È¤ñ¹ï-Ans2.zip (28.63 KB)

¤U¸ü¦¸¼Æ: 8

2011-10-8 10:01

loyyee

¦^´_ 2# luhpro

·PÁ¸ѵª¡A¦pªGA/BÄæ¼Æ¶q¤£¬Ûµ¥®É·|¥X²{¿ù»~¡A½Ð°Ý¸Ó¦p¦ó­×§ï? ¼Æ­È¤ñ¹ï-Ans.rar (20.8 KB)

¤U¸ü¦¸¼Æ: 13

2011-10-8 09:35

luhpro

¦^´_ 1# loyyee
¼Æ­È¤ñ¹ï-Ans.zip (29.08 KB)

¤U¸ü¦¸¼Æ: 19

2011-10-8 07:52