Hsieh

¦^´_ 15# freeffly


    ª½±µ§PÂ_¼Æ­È¬O§_¼W¥[

1. Sub ex()
   
2. [AE:AE] = ""
   
3. R = 5
   
4. Do Until Cells(R, 2) = ""
   
5. Set Rng = Range(Cells(R, 3), Cells(R, "AD"))
   
6. i = 1
   
7. Do Until Rng(1, i) <> ""
   
8. i = i + 1
   
9. Loop
   
10. first = Rng(1, i): i = i + 1
    
11. For k = i To Rng.Count
    
12.   If Rng(1, k) > first Then cnt = cnt + 1
    
13.   If Rng(1, k) <> "" Then first = Rng(1, k)
    
14. Next
    
15. Cells(R, "AE") = cnt: cnt = 0
    
16. R = R + 1
    
17. Loop
    
18. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 17# freeffly


    Sub ex()
[AE:AE] = ""
R = 5'²Ä5¦C¶}©l
Do Until Cells(R, 2) = ""
Set Rng = Range(Cells(R, 3), Cells(R, "AD"))'C:ADÄ檺¦C½d³ò
i = 1
Do Until Rng(1, i) <> ""'§ä¨ì¸Ó¦Cªº²Ä¤@­Ó¼Æ­È¦ì¸m
i = i + 1
Loop
first = Rng(1, i): i = i + 1'§â²Ä¤@­Ó¼Æ­È°O¦í¡A·Ç³Æ±q²Ä¤@­Ó¼Æ­È«á¶}©l§ä¼Æ­È
For k = i To Rng.Count
  If Rng(1, k) > first Then cnt = cnt + 1'¦pªGÀx¦s®æ¼Æ­È¤ñ«e¤@­Ó¼Æ­È¤j¡A­p¼ÆªºÅܼƴN¥[1
  If Rng(1, k) <> "" Then first = Rng(1, k)'¦pªG¤£¬OªÅ®æ¡A´N§âÀx¦s®æªº­È°O¦í¡A·Ç³Æ¸ò¤U¤@­Ó¼Æ­È°µ¤ñ¸û
Next
Cells(R, "AE") = cnt: cnt = 0'¾ã¦C¶]§¹«á¡A´N§â­p¼Æªº­È¶ñ¤J¡AµM«áÂk¹s
R = R + 1'¤U¤@¦C
Loop
End Sub