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

VBA§R°£©T©w¦C¼Æ

¦^´_ 4# c_c_lai


   §Ú±q§Ú­Ìªºserver download ¸ê®Æ¡A¸ê®Æ·|¦³¤W¤dµ§¡A¦ý¬O«e­±ªº16¦C¬O¨S¦³¥Îªº¡A±µµÛ42¦C¬O¦³¥Îªº¡A¤@ª½­«½Æªºµ²§ô
²{¦b§Ú¬O¥Î¤â°Ê¥h§R°£¤@µ§µ§³v¤@§R°£«Ü¯Ó®É¡A·Q¥ÎVBA¸Ñ¨M¡AÁÂÁÂ

TOP

¦^´_ 3# samwang
¥ý»¡»¡§A¹ï¦¹®×ªº³B²z¤è®×¡I

TOP

¦^´_ 2# c_c_lai

    ÁÂÁ±zªº¦^ÂСA¸ê®Æ¦³¤W¤dµ§¡A½Ð°Ý¦p¦ó°µ

TOP

§R°£©T©w¦C¡A
1~16¦C
59~74¦C
117~132¦C
.
.
.
¸ê®Æ«e­±16¦C­n§R°£¡A58¦C¬°¤@­Ó°Ï¶¡¡A½Ð°ÝVBA¦p¦ó¼g
samwang µoªí©ó 2013-10-31 08:54
  1. Sub Ex()
  2.     With Sheets(1)
  3.         .Range("A117:A132").EntireRow.Delete
  4.         .Range("A59:A74").EntireRow.Delete
  5.        .Range("A1:A16").EntireRow.Delete
  6.     End With
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD