- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 277
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-23
|
¦^´_ 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¡Ap¼ÆªºÅܼƴ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 |
|