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

[µo°Ý] (¤w¸Ñ¨M)­«±Æ¤u§@ªí¶¶§Ç

[µo°Ý] (¤w¸Ñ¨M)­«±Æ¤u§@ªí¶¶§Ç

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

§Ú·Q°Ý¦pªG§Ú­n¦b²Ä¤@¦U¤u§@ªí¨ºÃä½s±Æ¤u§@ªí¶¶§Ç
¦AÅý¤u§@ªí·Ó±Æ§¹¤§«áªº¶¶§Ç¥h±Æ­n¦p¦ó¼g?







·s¼WMicrosoft Excel ¤u§@ªí.rar (33.13 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-10-20 11:12 ½s¿è

¦^´_ 1# freeffly
  1. Sub nn()
  2. For i = [B65536].End(xlUp).Row To 2 Step -1
  3.    Sheets(Cells(i, 2).Value).Move before:=Sheets(1)
  4. Next
  5. End Sub
½Æ»s¥N½X
©Î
  1. Sub nn()
  2. For Each a In Range([B2], [B65536].End(xlUp))
  3.    Sheets(a.Value).Move after:=Sheets(Sheets.Count)
  4. Next
  5. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    ·PÁ¤j¤j
       ²Ä¤G¦U¥i¥H
       ²Ä¤@¦U¦³°ÝÃD
       ¬Ý§¹µ{¦¡½X«á
        ¥»¨Ó·Q¤£³q¬°¤°»ò
       ­ì¨Ó¸ò¤j­·§j¤@¼Ë
        ¯u¬O§®!!
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 3# freeffly


    ¦b¤@¯ë¼Ò²Õ¨Ï¥Î´N¥²¶·«ü©w¤u§@ªí
  1. Sub nn()
  2. With Sheets("Sheet159")
  3. For i = .[B65536].End(xlUp).Row To 2 Step -1
  4.    Sheets(.Cells(i, 2).Value).Move before:=Sheets(1)
  5. Next
  6. End With
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    ÁÂÁ¤j¤j«ü¾É
       ¨Sª`·N¨ì³o¦U°ÝÃD
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD