­«·s½s¸¹

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!°ÝÃD¦pªþÀÉ»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

myleoyes

¦^´_ 28# Hsieh
hsieh«e½ú§A¦n!
       °¸¹³«e½ú!ÁÂÁ¦A¤T!!

Hsieh

¦^´_ 26# myleoyes


    ÅܼÆi´N¬O±N¨Ó­nªº½s¸¹
Do Until i=[a1]
·N«ä¬O°j°é°õ¦æ¨ìi­Èµ¥©ó[a1]ªº­È°±¤î

myleoyes

¦^´_ 25# GBKEE
GBKEE«e½ú§A¦n!
     ¡@ ¨}®v!ÁÂÁÂ!!µ{¦¡¥i¥HÁÂÁ¦A¤T!!

myleoyes

¦^´_ 24# Hsieh
hsieh«e½ú§A¦n!
       °¸¹³«e½ú!ÁÂÁÂ!!µ{¦¡ÁöµMµuµu´X¦r
       ¤]¬Ý¹L»¡©ú?¤p§Ì¹ê¦bµLªk²z¸Ñ§t¸q
       ¤£¦n·N«äµL²zªº½Ð¨D
       ¥i§_¸ÑÄÀ¤@¤Uµ{¦¡ªº·N«ä
       Do Until i = [A1]
       ¤×¨ä¬O i¥Nªí¦h¤Ö?¬O6¶Ü?
       ¨¯­WÅo!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 23# myleoyes

1. Sub Ex()
   
2.     Range("b1").Resize(1, Columns.Count - 1) = ""
   
3.     For i = 0 To Range("a1") - 1
   
4.         'Cells(1, 12) ¬°L1
   
5.         Cells(1, 12 + i * 10) = i + 1  'i * 10 ¨C¹j10Äæ
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 23# myleoyes

1. Sub nn()
   
2. Range([L1], Cells(1, Columns.Count)) = ""
   
3. Do Until i = [A1]
   
4. [L1].Offset(, i * 10) = i + 1
   
5. i = i + 1
   
6. Loop
   
7. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 21# hugh0620
¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!³o­ÓÃþ¦ü°ÝÃD¤p§ÌÁÙ¬O
         §@¤£¥X¨Ó¦pªþÀÉ»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

myleoyes

¦^´_ 20# FAlonso
FAlonso «e½ú§A¦n!
      «e½úÁÂÁÂ!!¤ï¶Õ!³o¼Ë»¡©úÅý§A¬Ý¹ÇÃú·Ù·Ù
       §Aªºµ{¦¡¤]¾A¥ÎÁÂÁ¦A¤T!!

hugh0620

¦^´_ 19# Hsieh
    ¤j¤j¯u¼F®` ¶È¥[¤WUsedRange.Columns.Count³o¤@¤p¬q ´N¯à¨Ï¤¤¶¡¦³¤¤Â_ªº³¡¥÷~ ¤]¯à°÷©¹¤U¥h§ì¦³¸ê®Æªº³¡¥÷~
     ¤S¾Ç²ß¨ì¤F~