- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¥»©«³Ì«á¥Ñ hugh0620 ©ó 2011-1-18 16:13 ½s¿è
¦^´_ 3# Hsieh
³á~~ ì¨Ó¬O³o¼Ë§r~ ÁÂÁ¤j¤jªº»¡©ú~
¤£¹L~ §ÚÀ³¸Ó¨Sªk¼gªº¤ñ¼Ó¥D¦n§a~ ¦ý§ÚÁÙ¬O·|¸Õ¬Ý¬Ý~
¨ä¥¦¤è¦¡ªº¼gªk(¦ý¥i¯à¬O¤@ºØ©_©ÇªºÅÞ¿è¨Ó³B²z)~ ^.^
¥Î¤£¦Pªº¼gªk~ ¤£¹L¬OÓ·s¤âªº¼gªk~
X = 0
Do Until Cells(1, 3 + X) = ""
If Cells(1, 3 + X) = Cells(1, 3 + X - 1) And Cells(2, 3 + X) = Cells(2, 3 + X - 1) Then
If Cells(154, 3 + X - 1) = "" Then
Cells(154, 3 + X) = 1
Else
Cells(154, 3 + X) = Cells(154, 3 + X - 1)
End If
Else
Cells(154, 3 + X) = Cells(154, 3 + X - 1) + 1
End If
X = X + 1
Loop |
|