ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] (¤w¸Ñ¨M)¦Û°Ê¿z¿ï-¤£§R°£¼ÐÃD¦C

[µo°Ý] (¤w¸Ñ¨M)¦Û°Ê¿z¿ï-¤£§R°£¼ÐÃD¦C

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-2-22 16:55 ½s¿è

·Q­n§R°£¤£»Ý­nªº¸ê®Æ
¦ý¬O¤S¤£·QÀˬd¸Ó¸ê®Æ¬O¤£¬O¤w¸g¤£¦s¦b
¦pªG¥Îvba§R°£
³£·|§R¨ì¼ÐÃD¦C
¦bºô¸ô¤W¦³¬Ý¨ì³o­ÓÃþ¦üªºµ{¦¡½X¦p¤U
ActiveSheet.UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
¥i¬O¦pªG¿z¿ï¨S¸ê®ÆÁÙ¬O·|§R¨ì¼ÐÃD¦C
¦³¤°»ò¤è¦¡¥i¥H¸Ñ¨M³o°ÝÃD?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¦^´_ 7# Hsieh

  ÁÂÁª©¥D
­n¾ÇªºÁ٫ܦh
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 6# freeffly
¥ÎMsgBox ActiveSheet.UsedRange.Offset(1).Address
¥h¬Ý¦ì§}ÅܤƴNª¾¹D¸Ó«ç»ò°µ¤F
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh

     ª©¥D§Úªº·N«ä¬O¥Î¤U­±³o¤@¦U¤è¦¡¬O­n§ïOffset(4)³o¸Ì¤~¯à¹F¨ì¦P¼Ë®ÄªG¶Ü(¼ÐÃD¦C²Ä4¦æ)
    ActiveSheet.UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

§Ú¤]À´¤F¡I§Æ±æ¤U¦³¾÷·|¨Ó¸Õ¬Ý¬Ý
¬Ý¤å³¹¾Ç¸gÅç

TOP

¦^´_ 3# freeffly


    ¤£»Ý­n
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    ÁÂÁª©¥D
   ³o­Ó¤èªk¥i¥H
   ¦pªG¨Ï¥Î­ì¥»ªº¤è¦¡
   ¼ÐÃD¦C¦b²Ä4¦æ¬O­n±Noffset(1)§ï¦¨offset(5)¶Ü?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 1# freeffly

¦pªG¼ÐÃD¦C¤£¦b²Ä¤@¦C¤~·|µo¥Í¼ÐÃD¦C³Q§R°£ªº°ÝÃD
§ï¥Î¦Û°Ê¿z¿ï½d³ò
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD