- ©«¤l
- 27
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 38
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-9-19
- ³Ì«áµn¿ý
- 2014-2-18
|
[µo°Ý] ²¾°£¤£nªºÄæ¦ìªºµ{¦¡×§ï
±q¤½¶}¸ê°TÆ[´ú¯¸¤U¸ü¤F¤W¥«Âd¤½¥q¦Cªí
¦ý¬O¦³¨Ç¤½¥q¬O§Ú¨S¿³½ìªº, ¦pÅvÃÒ¥H¤ÎTDRµ¥
¦p¤U¹Ï
§Ú¼g¤FVBA·Q§â¤£nªº¸ê®Æ§R°£¡A¦p¤U
Sub test()
For i = 1 To Range("A2").End(xlDown).Row
If Cells(i, 1).Value > 9999 Then Rows(i & ":" & i).Delete shift:=xlUp
Next i
End Sub
³o·|µo¥Í¤@Ó°ÝÃD¡A¦pªG¦³³sÄò¨âÓrowªº¸ê®Æ¬O§Ú¤£nªº
´N·|µLªk¿z¿ï¥X¨Ó
½Ð°Ýn¦p¦óקï³o¬qµ{¦¡©O¡H
ÁÂÁÂ |
|