- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 96
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-4-25
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-1-14 19:53 ½s¿è
¦^´_ 2# freeffly - Sub ´¡¤J¤@¦æ()
- Dim A As Long, one As Variant, two As Variant
- A = 5 '¶}©l¦C
- Do While Cells(A, 3).Value <> "" 'CÄ椣¬OªÅ¥Õ´NÄ~Äò°j°é
- one = Cells(A, 3).Value '°_©lÈ
- A = A + 1 '¥[¤@¦C
- two = Cells(A, 3).Value '²Ä2ÓCÄæÈ
- Do While one = two '¦pªG°_©lȸò¤U¤@ÓCÄæȬۦP´NÄ~Äò°j°é
- A = A + 1 '¤U¤@¦C
- two = Cells(A, 3).Value '¤U¤@ÓCÄæÈ
- Loop
- ActiveSheet.Rows(A).Insert '¹J¨ì¤£¦PȮɸӦC´¡¤J
- A = A + 1 '¤U¤@¦C¡A¦]¬°¤w¸g´¡¤J¤@¦C¥²¶·¦b©¹¤U¤@¦C¤~¬O¤£¦PȪº²Ä¤@Ó¦ì¸m
- Loop
-
- End Sub
½Æ»s¥N½X ²¤Æ¤@¤U§A·|§ó²M·¡ÅÞ¿è- Sub ex()
- r = 5
- Do While Cells(r, 3) <> ""
- first = Cells(r, 3)
- Do While Cells(r, 3) = first
- r = r + 1
- Loop
- Rows(r).Insert
- r = r + 1
- Loop
- End Sub
½Æ»s¥N½X |
|