[µo°Ý] ½Ð°Ý¦p¦ó±N¤@¦C¸ê®ÆÅܦ¨¤T¦C

michael101772

¤j®a¦n¡A

  »Ý¨D»¡©ú¦p¤U¡G
  ´N¹³Àɮפ¤sheet1 ªº¸ê®ÆÅܦ¨ sheet2ªº¼Ë¤l¡C
  sheet1ªº¸ê®Æ¦@¦³¤EÄæ¡A·Q±N¸ê®Æ½Æ»s¨ìsheet2(¹ê»Ú¬O­n½Æ»s¨ì¥t¤@­Ó¬¡­¶Ã¯)¡A¦Ó¥B¨C¶K¤TÄæ«á¡A
  ´N¦Û°Ê¶K¨ì¤U¤@¦C¡C§Y1~3Äæ¶K¨ì²Ä¤@¦C«á¡A4~6Äæ¶K¨ì²Ä¤G¦C¡A7~9Äæ¶K¨ì²Ä¤T¦C~¨Ì§Ç¶K¤U¥h¡C
  ¥Ñ©óÀx¦s®æ¦³¨Ç¦³¤½¦¡¡A§Æ±æ¶K¹L¥h«á¤@¨ÖÅܦ¨­È¡C

  ¤j·§ª¾¹DÀ³¸Ó¥Î°j°éªº¤è¦¡¼g¡A¤£¹L·Q¤£¥X¨Ó¡A§Æ±æª©¤W¯«¤Hµ¹¤©«Øij
  
  ·PÁÂ

Hsieh

¦^´_ 1# michael101772

1. Sub ex()
   
2. Dim ar()
   
3. With ¤u§@ªí1
   
4. For Each a In Range([A2], [A2].End(xlDown))
   
5.   For i = 0 To 6 Step 3
   
6.      ReDim Preserve ar(s)
   
7.      ar(s) = Array(a.Offset(, i).Value, a.Offset(, i + 1).Value, a.Offset(, i + 2).Value)
   
8.      s = s + 1
   
9.   Next
   
10. Next
    
11. End With
    
12. ¤u§@ªí2.[A2].Resize(s, 3) = Application.Transpose(Application.Transpose(ar))
    
13. End Sub

½Æ»s¥N½X

michael101772

¦^´_ 2# Hsieh


    ·PÁª©¥D¡A´ú¸ÕµL»~¡C
    ¯u¬O¤Ó¼F®`¤F¡C

   ¥i¥H¦b½Ð±Ðª©¥D³o±øµ{¦¡ªº²[¸q¶Ü¡H¤£¤ÓÀ´step 3ªº§@¥Î¡u For i = 0 To 6 Step 3 ¡v



     ·PÁÂ

Hsieh

¦^´_ 3# michael101772

°j°é¤¤Åܼƪº¼W¶q

michael101772

ª©¥D¤j¤j¡A

·Q°Ý­Y­n§â±Æ§Ç«áªº¸ê®Æ©ñ¨ì¥t¤@­ÓÀɮתºsheetªº¸Ü¡A­n«ç»ò°µ¡H
§Ú¸Õ¹L¦bµ{¦¡¤¤¥[¤J·s¼W¬¡­¶Ã¯¨Ã«ü©w¨ì¬¡­¶Ã¯¡A¥i¬O¥L´N¬OµLªk¶K¹L¥h¡C


·P®¦